Add type synonyms for the node/instance indices

[ganeti-local] / Ganeti / HTools / Text.hs

diff --git a/Ganeti/HTools/Text.hs b/Ganeti/HTools/Text.hs
index fdf1982..19826cc 100644 (file)
--- a/Ganeti/HTools/Text.hs
+++ b/Ganeti/HTools/Text.hs
@@ -1,7 +1,7 @@
 {-| Parsing data from text-files
 
 This module holds the code for loading the cluster state from text
-files, as produced by gnt-node/gnt-instance list.
+files, as produced by gnt-node and gnt-instance list.
 
 -}
 
@@ -44,7 +44,7 @@ loadNode s = fail $ "Invalid/incomplete node data: '" ++ (show s) ++ "'"
 
 -- | Load an instance from a field list
 loadInst :: (Monad m) =>
-            [(String, Int)] -> [String] -> m (String, Instance.Instance)
+            [(String, Ndx)] -> [String] -> m (String, Instance.Instance)
 loadInst ktn (name:mem:dsk:status:pnode:snode:[]) = do
   pidx <- lookupNode ktn name pnode
   sidx <- (if null snode then return Node.noSecondary