summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSergei Trofimovich <slyfox@gentoo.org>2020-09-12 23:21:29 +0100
committerSergei Trofimovich <slyfox@gentoo.org>2020-09-12 23:22:44 +0100
commita57586a7c97130d82de76a62a95fade342766400 (patch)
tree9a8f95214afc0d821cabf103a3edce717f1804cc /dev-haskell/syb/files
parentdev-haskell/stringsearch: drop old (diff)
downloadgentoo-a57586a7c97130d82de76a62a95fade342766400.tar.gz
gentoo-a57586a7c97130d82de76a62a95fade342766400.tar.bz2
gentoo-a57586a7c97130d82de76a62a95fade342766400.zip
dev-haskell/syb: drop old
Package-Manager: Portage-3.0.6, Repoman-3.0.1 Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
Diffstat (limited to 'dev-haskell/syb/files')
-rw-r--r--dev-haskell/syb/files/syb-0.4.3-ghc-7.10.patch152
1 files changed, 0 insertions, 152 deletions
diff --git a/dev-haskell/syb/files/syb-0.4.3-ghc-7.10.patch b/dev-haskell/syb/files/syb-0.4.3-ghc-7.10.patch
deleted file mode 100644
index 2773bdc5a63..00000000000
--- a/dev-haskell/syb/files/syb-0.4.3-ghc-7.10.patch
+++ /dev/null
@@ -1,152 +0,0 @@
---- syb-0.4.3-orig/tests/XML.hs 2014-12-31 19:40:41.000000000 +1100
-+++ syb-0.4.3/tests/XML.hs 2015-01-02 12:47:10.082782760 +1100
-@@ -13,6 +13,7 @@
-
- import Test.HUnit
-
-+import Control.Applicative (Alternative(..), Applicative(..))
- import Control.Monad
- import Data.Maybe
- import Data.Generics
-@@ -157,6 +158,17 @@
- else Just (tail x, head x)
- )
-
-+instance Functor ReadX where
-+ fmap = liftM
-+
-+instance Applicative ReadX where
-+ pure = return
-+ (<*>) = ap
-+
-+instance Alternative ReadX where
-+ (<|>) = mplus
-+ empty = mzero
-+
- -- ReadX is a monad!
- instance Monad ReadX where
- return x = ReadX (\y -> Just (y,x))
---- syb-0.4.3-orig/tests/Perm.hs 2014-12-31 19:40:41.000000000 +1100
-+++ syb-0.4.3/tests/Perm.hs 2015-01-02 12:47:02.751422866 +1100
-@@ -11,6 +11,7 @@
-
- import Test.HUnit
-
-+import Control.Applicative (Alternative(..), Applicative(..))
- import Control.Monad
- import Data.Generics
-
-@@ -44,6 +45,17 @@
- else Just (tail x, head x)
- )
-
-+instance Functor ReadT where
-+ fmap = liftM
-+
-+instance Applicative ReadT where
-+ pure = return
-+ (<*>) = ap
-+
-+instance Alternative ReadT where
-+ (<|>) = mplus
-+ empty = mzero
-+
- -- ReadT is a monad!
- instance Monad ReadT where
- return x = ReadT (\y -> Just (y,x))
---- syb-0.4.3-orig/tests/Bits.hs 2014-12-31 19:40:41.000000000 +1100
-+++ syb-0.4.3/tests/Bits.hs 2015-01-02 12:46:37.842839944 +1100
-@@ -39,6 +39,7 @@
- import Data.Generics
- import Data.Char
- import Data.Maybe
-+import Control.Applicative (Alternative(..), Applicative(..))
- import Control.Monad
- import CompanyDatatypes
-
-@@ -129,6 +130,16 @@
- data ReadB a = ReadB (Bin -> (Maybe a, Bin))
- unReadB (ReadB f) = f
-
-+instance Functor ReadB where
-+ fmap = liftM
-+
-+instance Applicative ReadB where
-+ pure = return
-+ (<*>) = ap
-+
-+instance Alternative ReadB where
-+ (<|>) = mplus
-+ empty = mzero
-
- -- It's a monad.
- instance Monad ReadB where
---- syb-0.4.3-orig/tests/Encode.hs 2014-12-31 19:40:41.000000000 +1100
-+++ syb-0.4.3/tests/Encode.hs 2015-01-02 12:51:48.500949407 +1100
-@@ -6,6 +6,8 @@
-
- module Encode () where
-
-+import Control.Applicative (Applicative(..))
-+import Control.Monad (ap, liftM)
- import Data.Generics
-
- data Bit = Zero | One
-@@ -62,6 +64,11 @@
- -- Sec. 3.3 cont'd
-
- data EncM a -- The encoder monad
-+instance Functor EncM where
-+ fmap = liftM
-+instance Applicative EncM where
-+ pure = return
-+ (<*>) = ap
- instance Monad EncM
- where
- return = undefined
---- syb-0.4.3-orig/tests/GRead2.hs 2014-12-31 19:40:41.000000000 +1100
-+++ syb-0.4.3/tests/GRead2.hs 2015-01-02 12:51:27.524567019 +1100
-@@ -10,6 +10,8 @@
-
- -}
-
-+import Control.Applicative (Applicative(..))
-+import Control.Monad (ap, liftM)
- import Data.Generics
-
- gread :: Data a => String -> Maybe a
-@@ -18,6 +20,13 @@
- -- The decoder monad
- newtype DecM a = D (String -> Maybe (String, a))
-
-+instance Functor DecM where
-+ fmap = liftM
-+
-+instance Applicative DecM where
-+ pure = return
-+ (<*>) = ap
-+
- instance Monad DecM where
- return a = D (\s -> Just (s,a))
- (D m) >>= k = D (\s ->
---- syb-0.4.3-orig/tests/Ext1.hs 2014-12-31 19:40:41.000000000 +1100
-+++ syb-0.4.3/tests/Ext1.hs 2015-01-02 10:30:39.396517984 +1100
-@@ -1,4 +1,5 @@
- {-# OPTIONS -fglasgow-exts #-}
-+{-# LANGUAGE CPP #-}
-
- module Ext1 (tests) where
-
-@@ -11,8 +12,11 @@
- import Test.HUnit
-
- import Data.Generics
-+#if MIN_VERSION_base(4,8,0)
-+import GHC.Base hiding(foldr)
-+#else
- import GHC.Base
--
-+#endif
-
- -- Unsafe coerce
- unsafeCoerce :: a -> b