htools: introduce new data type for node-evac

[ganeti-local] / htools / Ganeti / HTools / IAlloc.hs

diff --git a/htools/Ganeti/HTools/IAlloc.hs b/htools/Ganeti/HTools/IAlloc.hs
index 7012173..8801949 100644 (file)
--- a/htools/Ganeti/HTools/IAlloc.hs
+++ b/htools/Ganeti/HTools/IAlloc.hs
@@ -60,7 +60,7 @@ parseBaseInstance n a = do
   let running = "running"
   return (n, Instance.create n mem disk vcpus running tags True 0 0)
 
--- | Parses an instance as found in the cluster instance listg.
+-- | Parses an instance as found in the cluster instance list.
 parseInstance :: NameAssoc -- ^ The node name-to-index association list
               -> String    -- ^ The name of the instance
               -> JSRecord  -- ^ The JSON object