X-Git-Url: https://code.grnet.gr/git/ganeti-local/blobdiff_plain/7f4e37f00a2364bdf269bddf85d8ff416cd9422c..2e28ac3272b027e9169d6074702d14d8e90e06a6:/Ganeti/HTools/Simu.hs

diff --git a/Ganeti/HTools/Simu.hs b/Ganeti/HTools/Simu.hs
index ee0e66a..d822168 100644
--- a/Ganeti/HTools/Simu.hs
+++ b/Ganeti/HTools/Simu.hs
@@ -52,7 +52,7 @@ parseDesc desc =
 
 -- | Builds the cluster data from node\/instance files.
 loadData :: String -- ^ Cluster description in text format
-         -> IO (Result (Node.AssocList, Instance.AssocList))
+         -> IO (Result (Node.AssocList, Instance.AssocList, [String]))
 loadData ndata = -- IO monad, just for consistency with the other loaders
   return $ do
     (cnt, disk, mem, cpu) <- parseDesc ndata
@@ -63,4 +63,4 @@ loadData ndata = -- IO monad, just for consistency with the other loaders
                                  (fromIntegral cpu) False
                          in (idx, Node.setIdx n idx)
                     ) [1..cnt]
-    return (nodes, [])
+    return (nodes, [], [])