diff options
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 |