projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Follow changes in the base library
[ghc-hetmet.git]
/
compiler
/
main
/
DriverMkDepend.hs
diff --git
a/compiler/main/DriverMkDepend.hs
b/compiler/main/DriverMkDepend.hs
index
307e43f
..
481cd0c
100644
(file)
--- a/
compiler/main/DriverMkDepend.hs
+++ b/
compiler/main/DriverMkDepend.hs
@@
-31,6
+31,7
@@
import SrcLoc
import Data.List
import FastString
import Data.List
import FastString
+import Exception
import ErrUtils ( debugTraceMsg, putMsg )
import System.Exit ( ExitCode(..), exitWith )
import ErrUtils ( debugTraceMsg, putMsg )
import System.Exit ( ExitCode(..), exitWith )
@@
-126,9
+127,9
@@
beginMkDependHS dflags = do
then return ()
else chuck
then return ()
else chuck
- catchJust ioErrors slurp
+ catchIO slurp
(\e -> if isEOFError e then return () else ioError e)
(\e -> if isEOFError e then return () else ioError e)
- catchJust ioErrors chuck
+ catchIO chuck
(\e -> if isEOFError e then return () else ioError e)
return (Just makefile_hdl)
(\e -> if isEOFError e then return () else ioError e)
return (Just makefile_hdl)
@@
-295,7
+296,7
@@
endMkDependHS dflags
hPutStrLn tmp_hdl l
slurp
hPutStrLn tmp_hdl l
slurp
- catchJust ioErrors slurp
+ catchIO slurp
(\e -> if isEOFError e then return () else ioError e)
hClose hdl
(\e -> if isEOFError e then return () else ioError e)
hClose hdl