Revision 94e05c32 Ganeti/HTools/Text.hs

b/Ganeti/HTools/Text.hs
91 91 
-- | Builds the cluster data from node\/instance files.
92 92 
loadData :: String -- ^ Node data in string format
93 93 
         -> String -- ^ Instance data in string format
94 
         -> IO (Result (Node.AssocList, Instance.AssocList))
94 
         -> IO (Result (Node.AssocList, Instance.AssocList, [String]))
95 95 
loadData nfile ifile = do -- IO monad
96 96 
  ndata <- readFile nfile
97 97 
  idata <- readFile ifile
......
100 100 
    (ktn, nl) <- loadTabular ndata loadNode
101 101 
    {- instance file: name mem disk status pnode snode -}
102 102 
    (_, il) <- loadTabular idata (loadInst ktn)
103 
    return (nl, il)
103 
    return (nl, il, [])

Also available in: Unified diff