diff options
author | Vladimír Čunát <vcunat@gmail.com> | 2015-05-05 11:49:03 +0200 |
---|---|---|
committer | Vladimír Čunát <vcunat@gmail.com> | 2015-05-05 11:49:03 +0200 |
commit | 375bc8def7c17506bc10f3b6193635f05d5ccc40 (patch) | |
tree | 6af7662b245e7998bd18ae20d9e74922c489fb6d /pkgs/development/haskell-modules/unlambda-fix-ghc710.patch | |
parent | 2f75c6845981b38a698cf1a9f620145877c80956 (diff) | |
parent | 7f9ccc628403ed88844a4436da3b2944be5560a4 (diff) | |
download | nixpkgs-375bc8def7c17506bc10f3b6193635f05d5ccc40.tar nixpkgs-375bc8def7c17506bc10f3b6193635f05d5ccc40.tar.gz nixpkgs-375bc8def7c17506bc10f3b6193635f05d5ccc40.tar.bz2 nixpkgs-375bc8def7c17506bc10f3b6193635f05d5ccc40.tar.lz nixpkgs-375bc8def7c17506bc10f3b6193635f05d5ccc40.tar.xz nixpkgs-375bc8def7c17506bc10f3b6193635f05d5ccc40.tar.zst nixpkgs-375bc8def7c17506bc10f3b6193635f05d5ccc40.zip |
Merge staging into closure-size
Diffstat (limited to 'pkgs/development/haskell-modules/unlambda-fix-ghc710.patch')
-rw-r--r-- | pkgs/development/haskell-modules/unlambda-fix-ghc710.patch | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/pkgs/development/haskell-modules/unlambda-fix-ghc710.patch b/pkgs/development/haskell-modules/unlambda-fix-ghc710.patch new file mode 100644 index 00000000000..51c453557aa --- /dev/null +++ b/pkgs/development/haskell-modules/unlambda-fix-ghc710.patch @@ -0,0 +1,28 @@ +diff -ru3 unlambda-0.1.3-old/Language/Unlambda.hs unlambda-0.1.3/Language/Unlambda.hs +--- unlambda-0.1.3-old/Language/Unlambda.hs 2015-04-17 21:16:32.415751612 +0300 ++++ unlambda-0.1.3/Language/Unlambda.hs 2015-04-17 21:25:38.210123501 +0300 +@@ -29,6 +29,7 @@ + import Prelude hiding(catch) + #endif + import Control.Exception (catch, IOException) ++import Control.Monad (liftM, ap) + + ------------------------------------------------------------------------ + -- Abstract syntax +@@ -85,6 +86,16 @@ + + type Cont a = (Maybe Char, Int) -> a -> IO Exp + ++instance Functor Eval where ++ ++ fmap = liftM ++ ++instance Applicative Eval where ++ ++ pure = return ++ ++ (<*>) = ap ++ + instance Monad Eval where + + (Eval cp1) >>= f = Eval $ \dat1 cont2 -> |