summaryrefslogtreecommitdiff
path: root/app-emulation/ganeti-htools/files/ganeti-htools-0.3.1-ghc-7.10.patch
diff options
context:
space:
mode:
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.patch29
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