This commit is contained in:
Daniel Gröber 2014-09-05 17:58:12 +02:00
parent 83d780015c
commit 8889c2e8e5

View File

@ -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