From 066d27181e9a797ad9f8fc43b49fc9a10ff2f707 Mon Sep 17 00:00:00 2001 From: V3n3RiX Date: Sun, 3 Mar 2019 13:42:34 +0000 Subject: gentoo resync : 03.03.2019 --- .../files/ganeti-htools-0.3.1-ghc-7.10.patch | 29 ---------------------- 1 file changed, 29 deletions(-) delete mode 100644 app-emulation/ganeti-htools/files/ganeti-htools-0.3.1-ghc-7.10.patch (limited to 'app-emulation/ganeti-htools/files/ganeti-htools-0.3.1-ghc-7.10.patch') 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 -- cgit v1.2.3