projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
FIX panic from the GHC API
[ghc-hetmet.git]
/
compiler
/
utils
/
IOEnv.hs
diff --git
a/compiler/utils/IOEnv.hs
b/compiler/utils/IOEnv.hs
index
c0277ae
..
c72347e
100644
(file)
--- a/
compiler/utils/IOEnv.hs
+++ b/
compiler/utils/IOEnv.hs
@@
-47,6
+47,9
@@
instance Monad (IOEnv m) where
return = returnM
fail s = failM -- Ignore the string
return = returnM
fail s = failM -- Ignore the string
+instance Functor (IOEnv m) where
+ fmap f (IOEnv m) = IOEnv (\ env -> fmap f (m env))
+
returnM :: a -> IOEnv env a
returnM a = IOEnv (\ env -> return a)
returnM :: a -> IOEnv env a
returnM a = IOEnv (\ env -> return a)