X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=harpy.git;a=blobdiff_plain;f=Harpy%2FCodeGenMonad.hs;h=94d68a1182977a6ba3823fb9dc030c5c0b69f9cd;hp=c716b70498cd48acacfa37cdb62b12fc8917d07d;hb=HEAD;hpb=5e6e6cb9d5c64a16457eef543c72c93c68bea610

diff --git a/Harpy/CodeGenMonad.hs b/Harpy/CodeGenMonad.hs
index c716b70..94d68a1 100644
--- a/Harpy/CodeGenMonad.hs
+++ b/Harpy/CodeGenMonad.hs
@@ -173,6 +173,9 @@ instance Monad (CodeGen e s) where
     fail err = cgFail err
     m >>= k = cgBind m k
 
+instance Functor (CodeGen e s) where
+  fmap = liftM
+
 cgReturn :: a -> CodeGen e s a
 cgReturn x = CodeGen (\_env state -> return (state, Right x))