From a30b473c1531faf8a7fba1a792c98ef5e25c2194 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Thu, 7 Jul 2011 00:12:28 +0200
Subject: [PATCH] htools: add two monad-conversion utility functions

For monadic operations, these function will make it easier to convert
other monads (or monad-like structure) to our 'Result' type.

Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: Guido Trotter <ultrotter@google.com>
---
 htools/Ganeti/HTools/Types.hs |   30 +++++++++++++++++++++++-------
 1 file changed, 23 insertions(+), 7 deletions(-)

diff --git a/htools/Ganeti/HTools/Types.hs b/htools/Ganeti/HTools/Types.hs
index 24ea25b..1b6224c 100644
--- a/htools/Ganeti/HTools/Types.hs
+++ b/htools/Ganeti/HTools/Types.hs
@@ -56,10 +56,12 @@ module Ganeti.HTools.Types
     , Result(..)
     , isOk
     , isBad
+    , eitherToResult
     , Element(..)
     , FailMode(..)
     , FailStats
     , OpResult(..)
+    , opToResult
     , connTimeout
     , queryTimeout
     , EvacMode(..)
@@ -254,13 +256,11 @@ unitDsk = 256
 unitCpu :: Int
 unitCpu = 1
 
-{-|
-
-This is similar to the JSON library Result type - /very/ similar, but
-we want to use it in multiple places, so we abstract it into a
-mini-library here
-
--}
+-- | This is similar to the JSON library Result type - /very/ similar,
+-- but we want to use it in multiple places, so we abstract it into a
+-- mini-library here.
+--
+-- The failure value for this monad is simply a string.
 data Result a
     = Bad String
     | Ok a
@@ -281,6 +281,11 @@ isOk _ = False
 isBad :: Result a  -> Bool
 isBad = not . isOk
 
+-- | Converter from Either String to 'Result'
+eitherToResult :: Either String a -> Result a
+eitherToResult (Left s) = Bad s
+eitherToResult (Right v) = Ok v
+
 -- | Reason for an operation's falure.
 data FailMode = FailMem  -- ^ Failed due to not enough RAM
               | FailDisk -- ^ Failed due to not enough disk
@@ -293,6 +298,12 @@ data FailMode = FailMem  -- ^ Failed due to not enough RAM
 type FailStats = [(FailMode, Int)]
 
 -- | Either-like data-type customized for our failure modes.
+--
+-- The failure values for this monad track the specific allocation
+-- failures, so this is not a general error-monad (compare with the
+-- 'Result' data type). One downside is that this type cannot encode a
+-- generic failure mode, hence 'fail' for this monad is not defined
+-- and will cause an exception.
 data OpResult a = OpFail FailMode -- ^ Failed operation
                 | OpGood a        -- ^ Success operation
                   deriving (Show, Read)
@@ -302,6 +313,11 @@ instance Monad OpResult where
     (OpFail y) >>= _ = OpFail y
     return = OpGood
 
+-- | Conversion from 'OpResult' to 'Result'.
+opToResult :: OpResult a -> Result a
+opToResult (OpFail f) = Bad $ show f
+opToResult (OpGood v) = Ok v
+
 -- | A generic class for items that have updateable names and indices.
 class Element a where
     -- | Returns the name of the element
-- 
1.7.10.4