diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-05-06 20:49:58 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-05-06 20:49:58 +0100 |
| commit | b26a1b3f5aeeb5a0f8c862d529288c859198d1a6 (patch) | |
| tree | f573959bb87c788d172157108e616415475a478d /ghc/InteractiveUI.hs | |
| parent | fcb19dbdc168b6bf4aefabf01cfe1fa2808f3aac (diff) | |
| download | haskell-b26a1b3f5aeeb5a0f8c862d529288c859198d1a6.tar.gz | |
Build fix
Diffstat (limited to 'ghc/InteractiveUI.hs')
| -rw-r--r-- | ghc/InteractiveUI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 225071e2e3..1a80b49639 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -186,7 +186,7 @@ keepGoing' a str = a str >> return False keepGoingPaths :: ([FilePath] -> InputT GHCi ()) -> (String -> InputT GHCi Bool) keepGoingPaths a str = do case toArgs str of - Left err -> hPutStrLn stderr err + Left err -> liftIO $ hPutStrLn stderr err Right args -> a args return False |