diff options
author | V3n3RiX <venerix@redcorelinux.org> | 2019-03-03 13:42:34 +0000 |
---|---|---|
committer | V3n3RiX <venerix@redcorelinux.org> | 2019-03-03 13:42:34 +0000 |
commit | 066d27181e9a797ad9f8fc43b49fc9a10ff2f707 (patch) | |
tree | 3cb05783d73b2c33589ba305144a31c718e123cd /app-emulation/ganeti-htools/files/ganeti-htools-0.3.1-ghc-7.10.patch | |
parent | 16449a80e28af2209916cc66d19c9a44ca2b90d9 (diff) |
gentoo resync : 03.03.2019
Diffstat (limited to 'app-emulation/ganeti-htools/files/ganeti-htools-0.3.1-ghc-7.10.patch')
-rw-r--r-- | app-emulation/ganeti-htools/files/ganeti-htools-0.3.1-ghc-7.10.patch | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/app-emulation/ganeti-htools/files/ganeti-htools-0.3.1-ghc-7.10.patch b/app-emulation/ganeti-htools/files/ganeti-htools-0.3.1-ghc-7.10.patch deleted file mode 100644 index 51c39fe5fce5..000000000000 --- a/app-emulation/ganeti-htools/files/ganeti-htools-0.3.1-ghc-7.10.patch +++ /dev/null @@ -1,29 +0,0 @@ -diff --git a/Ganeti/HTools/Types.hs b/Ganeti/HTools/Types.hs -index 104bf64..8146870 100644 ---- a/Ganeti/HTools/Types.hs -+++ b/Ganeti/HTools/Types.hs -@@ -65,2 +65,4 @@ import qualified Data.Map as M - import qualified Text.JSON as JSON -+import Control.Applicative -+import Control.Monad - -@@ -221,2 +223,9 @@ data Result a - -+instance Functor Result where -+ fmap = liftM -+ -+instance Applicative Result where -+ pure = return -+ (<*>) = ap -- defined in Control.Monad -+ - instance Monad Result where -@@ -252,2 +261,9 @@ data OpResult a = OpFail FailMode -- ^ Failed operation - -+instance Functor OpResult where -+ fmap = liftM -+ -+instance Applicative OpResult where -+ pure = return -+ (<*>) = ap -- defined in Control.Monad -+ - instance Monad OpResult where |