diff options
Diffstat (limited to 'dev-lang/epic/files/epic-0.9.3-ghc-7.6.patch')
-rw-r--r-- | dev-lang/epic/files/epic-0.9.3-ghc-7.6.patch | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/dev-lang/epic/files/epic-0.9.3-ghc-7.6.patch b/dev-lang/epic/files/epic-0.9.3-ghc-7.6.patch deleted file mode 100644 index d168f032b92f..000000000000 --- a/dev-lang/epic/files/epic-0.9.3-ghc-7.6.patch +++ /dev/null @@ -1,53 +0,0 @@ ---- epic-0.9.3-orig/Epic/Language.lhs 2012-02-28 10:44:29.000000000 +1100 -+++ epic-0.9.3/Epic/Language.lhs 2012-09-14 16:20:29.841939337 +1000 -@@ -1,9 +1,14 @@ --> {-# LANGUAGE FlexibleInstances, MultiParamTypeClasses, -+> {-# LANGUAGE FlexibleInstances, MultiParamTypeClasses, CPP, - > FunctionalDependencies #-} - - > module Epic.Language where - - > import Control.Monad -+#if MIN_VERSION_base(4,6,0) -+> import Control.Exception.Base -+#endif -+ -+ - > import System.IO - > import System.Directory - > import System.Environment -@@ -379,7 +384,13 @@ - > environment :: String -> IO (Maybe String) - > environment x = catch (do e <- getEnv x - > return (Just e)) --> (\_ -> return Nothing) -+#if MIN_VERSION_base(4,6,0) -+> (\y-> do return (y::SomeException); return Nothing) -+#endif -+> -+#if !MIN_VERSION_base(4,6,0) -+> (\_-> return Nothing) -+#endif - - Some tests - ---- epic-0.9.3-orig/Epic/CodegenC.lhs 2012-02-28 10:44:29.000000000 +1100 -+++ epic-0.9.3/Epic/CodegenC.lhs 2012-09-14 16:13:48.061329048 +1000 -@@ -1,3 +1,4 @@ -+> {-#LANGUAGE FlexibleContexts#-} - > module Epic.CodegenC where - - > import Control.Monad.State -@@ -98,10 +99,11 @@ - > if (x>max) then put x else return () - - > cgs [] = return "" -+ - > cgs (x:xs) = do xc <- cg x - > xsc <- cgs xs - > return $ xc ++ "\n" ++ xsc -- -+> cg:: (MonadState Int m) => ByteOp -> m [Char] - > cg (CALL t fn args) = return $ tmp t ++ " = " ++ quickcall fn ++ - > targs "(" args ++ ");" - > cg (TAILCALL t fn args) |