Add a new type for holding allocation statistics

[ganeti-local] / htools / Ganeti / BasicTypes.hs

diff --git a/htools/Ganeti/BasicTypes.hs b/htools/Ganeti/BasicTypes.hs
index 031e3c2..b7b437f 100644 (file)
--- a/htools/Ganeti/BasicTypes.hs
+++ b/htools/Ganeti/BasicTypes.hs
@@ -24,6 +24,7 @@ module Ganeti.BasicTypes
   , isOk
   , isBad
   , eitherToResult
+  , annotateResult
   ) where
 
 import Control.Monad
@@ -65,3 +66,8 @@ isBad = not . isOk
 eitherToResult :: Either String a -> Result a
 eitherToResult (Left s) = Bad s
 eitherToResult (Right v) = Ok v
+
+-- | Annotate a Result with an ownership information.
+annotateResult :: String -> Result a -> Result a
+annotateResult owner (Bad s) = Bad $ owner ++ ": " ++ s
+annotateResult _ v = v