note
This commit is contained in:
@@ -155,6 +155,7 @@ getGHC :: IO Version
|
|||||||
getGHC = do
|
getGHC = do
|
||||||
mv <- programFindVersion ghcProgram silent (programName ghcProgram)
|
mv <- programFindVersion ghcProgram silent (programName ghcProgram)
|
||||||
case mv of
|
case mv of
|
||||||
|
-- TODO: MonadError it up
|
||||||
Nothing -> E.throwIO $ userError "ghc not found"
|
Nothing -> E.throwIO $ userError "ghc not found"
|
||||||
Just v -> return v
|
Just v -> return v
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user