diff options
Diffstat (limited to '001-fix_ghc_7.10.patch')
| -rw-r--r-- | 001-fix_ghc_7.10.patch | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/001-fix_ghc_7.10.patch b/001-fix_ghc_7.10.patch new file mode 100644 index 000000000000..8361c3b2ad53 --- /dev/null +++ b/001-fix_ghc_7.10.patch @@ -0,0 +1,26 @@ +--- src/VMMonad.hs.orig 2015-05-03 02:22:24.504191179 +0200 ++++ src/VMMonad.hs 2015-05-03 02:23:48.101173777 +0200 +@@ -27,6 +27,9 @@ + import qualified Level (initialize, lfetch, lstore) + import qualified Memory (initialize, mfetch, mstore, mstoren, mreserve) + ++import Control.Applicative (Applicative(..)) ++import Control.Monad (liftM, ap) ++ + data State = + State { reg :: Registry, + mem :: Memory, +@@ -38,6 +41,13 @@ + profileHandle :: Maybe Handle, + profile :: ! (Map String Int) } + ++instance Functor Mnd where ++ fmap = liftM ++ ++instance Applicative Mnd where ++ pure = return ++ (<*>) = ap ++ + newtype Mnd a = + Mnd (IORef State -> IO a) + |