note
This commit is contained in:
parent
83d780015c
commit
8889c2e8e5
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user