blob: 51c39fe5fce5f67826abc04c7a03018e2ce58791 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
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
|
