Commit e9acdb5b authored by simonmar's avatar simonmar
Browse files

[project @ 2002-03-08 16:00:39 by simonmar]

Make this compile with various GHC versions (hopefully)
parent 3b6febd6
......@@ -64,7 +64,7 @@ import Panic
import Config
import IOExts
import Exception ( tryAllIO, Exception(DynException) )
import Exception
import Dynamic ( fromDynamic )
import Directory
import List ( isSuffixOf )
......@@ -581,7 +581,7 @@ readIface file_path
}}
else
ioToRnM_no_fail (tryAllIO (Binary.getBinFileWithDict file_path))
ioToRnM_no_fail (myTry (Binary.getBinFileWithDict file_path))
`thenRn` \ either_iface ->
case either_iface of
......@@ -597,6 +597,12 @@ readIface file_path
loc = mkSrcLoc (mkFastString file_path) 1
bale_out err = returnRn (Left (badIfaceFile file_path err))
#if __GLASGOW_HASKELL__ < 501
myTry = Exception.tryAllIO
#else
myTry = Exception.try
#endif
\end{code}
%*********************************************************
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment