From: Bernhard Urban <lewurm@gmail.com>
Date: Sun, 9 Sep 2012 09:59:46 +0000 (+0200)
Subject: CodeGenMonad: add Functor instance
X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=harpy.git;a=commitdiff_plain

CodeGenMonad: add Functor instance
---

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))