diff options
author | V3n3RiX <venerix@redcorelinux.org> | 2018-07-14 20:57:42 +0100 |
---|---|---|
committer | V3n3RiX <venerix@redcorelinux.org> | 2018-07-14 20:57:42 +0100 |
commit | 1798c4aeca70ac8d0a243684d6a798fbc65735f8 (patch) | |
tree | e48e19cb6fa03de18e1c63e1a93371b7ebc4eb56 /dev-haskell/top/files | |
parent | d87262dd706fec50cd150aab3e93883b6337466d (diff) |
gentoo resync : 14.07.2018
Diffstat (limited to 'dev-haskell/top/files')
-rw-r--r-- | dev-haskell/top/files/top-1.7-ghc-7.10.patch | 66 |
1 files changed, 0 insertions, 66 deletions
diff --git a/dev-haskell/top/files/top-1.7-ghc-7.10.patch b/dev-haskell/top/files/top-1.7-ghc-7.10.patch deleted file mode 100644 index 3acbda19e171..000000000000 --- a/dev-haskell/top/files/top-1.7-ghc-7.10.patch +++ /dev/null @@ -1,66 +0,0 @@ -diff --git a/src/Top/Implementation/TypeGraph/DefaultHeuristics.hs b/src/Top/Implementation/TypeGraph/DefaultHeuristics.hs -index 2cc5210..faf4c8c 100644 ---- a/src/Top/Implementation/TypeGraph/DefaultHeuristics.hs -+++ b/src/Top/Implementation/TypeGraph/DefaultHeuristics.hs -@@ -1,2 +1,3 @@ -+{-# LANGUAGE FlexibleContexts #-} - ----------------------------------------------------------------------------- - -- | License : GPL -diff --git a/src/Top/Monad/Select.hs b/src/Top/Monad/Select.hs -index e5953cb..72276b4 100644 ---- a/src/Top/Monad/Select.hs -+++ b/src/Top/Monad/Select.hs -@@ -16,4 +16,6 @@ module Top.Monad.Select - import Top.Util.Embedding - import Control.Monad.State -+import Control.Monad -+import Control.Applicative - - -------------------------------------------------------- -@@ -22,4 +24,11 @@ import Control.Monad.State - newtype Select t m a = Select (m a) - -+instance Monad m => Functor (Select t m) where -+ fmap = liftM -+ -+instance Monad m => Applicative (Select t m) where -+ pure = return -+ (<*>) = ap -- defined in Control.Monad -+ - instance Monad m => Monad (Select t m) where - return a = Select (return a) -@@ -43,4 +52,11 @@ select = Select - data SelectFix (t :: (* -> *) -> *) (m :: * -> *) a = SelectFix (m a) - -+instance Monad m => Functor (SelectFix t m) where -+ fmap = liftM -+ -+instance Monad m => Applicative (SelectFix t m) where -+ pure = return -+ (<*>) = ap -- defined in Control.Monad -+ - instance Monad m => Monad (SelectFix t m) where - return a = SelectFix (return a) -diff --git a/src/Top/Monad/StateFix.hs b/src/Top/Monad/StateFix.hs -index d77919d..bd8fb76 100644 ---- a/src/Top/Monad/StateFix.hs -+++ b/src/Top/Monad/StateFix.hs -@@ -16,4 +16,6 @@ import Control.Monad.State - import Control.Monad.Identity - import Control.Monad.Writer -+import Control.Monad -+import Control.Applicative - - type StateFix s = StateFixT s Identity -@@ -21,4 +23,11 @@ type StateFix s = StateFixT s Identity - data StateFixT s m a = Fix { unFix :: StateT (s (StateFixT s m)) m a } - -+instance Monad m => Functor (StateFixT s m) where -+ fmap = liftM -+ -+instance Monad m => Applicative (StateFixT s m) where -+ pure = return -+ (<*>) = ap -- defined in Control.Monad -+ - instance Monad m => Monad (StateFixT s m) where - return = Fix . return |