Merge branch 'devel-2.6' into submit

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

diff --git a/htools/Ganeti/BasicTypes.hs b/htools/Ganeti/BasicTypes.hs
index 8f29f33..149540f 100644 (file)
--- a/htools/Ganeti/BasicTypes.hs
+++ b/htools/Ganeti/BasicTypes.hs
@@ -123,7 +123,7 @@ isOk _      = False
 isBad :: GenericResult a b -> Bool
 isBad = not . isOk
 
--- | Converter from Either String to 'GeneicResult'.
+-- | Converter from Either to 'GenericResult'.
 eitherToResult :: Either a b -> GenericResult a b
 eitherToResult (Left  s) = Bad s
 eitherToResult (Right v) = Ok  v