projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
White space only
[ghc-hetmet.git]
/
compiler
/
iface
/
BinIface.hs
diff --git
a/compiler/iface/BinIface.hs
b/compiler/iface/BinIface.hs
index
aab8d26
..
12bde11
100644
(file)
--- a/
compiler/iface/BinIface.hs
+++ b/
compiler/iface/BinIface.hs
@@
-54,7
+54,7
@@
import Control.Monad
readBinIface :: FilePath -> TcRnIf a b ModIface
readBinIface hi_path = do
nc <- getNameCache
readBinIface :: FilePath -> TcRnIf a b ModIface
readBinIface hi_path = do
nc <- getNameCache
- (new_nc, iface) <- ioToIOEnv $ readBinIface_ hi_path nc
+ (new_nc, iface) <- liftIO $ readBinIface_ hi_path nc
setNameCache new_nc
return iface
setNameCache new_nc
return iface
@@
-428,7
+428,7
@@
instance Binary Usage where
usg_exports = exps, usg_entities = ents,
usg_rules = rules })
usg_exports = exps, usg_entities = ents,
usg_rules = rules })
-instance Binary a => Binary (Deprecs a) where
+instance Binary Deprecations where
put_ bh NoDeprecs = putByte bh 0
put_ bh (DeprecAll t) = do
putByte bh 1
put_ bh NoDeprecs = putByte bh 0
put_ bh (DeprecAll t) = do
putByte bh 1