X-Git-Url: https://code.grnet.gr/git/ganeti-local/blobdiff_plain/6ff7804972e1d850bd2f60b2489782dd8027a036..7d3f42530a2e1cdd6ec09a6098402c7e05fc3bdf:/Ganeti/HTools/Luxi.hs

diff --git a/Ganeti/HTools/Luxi.hs b/Ganeti/HTools/Luxi.hs
index 24441b3..cc80908 100644
--- a/Ganeti/HTools/Luxi.hs
+++ b/Ganeti/HTools/Luxi.hs
@@ -162,7 +162,7 @@ readData master =
        )
 
 parseData :: (Result JSValue, Result JSValue, Result JSValue)
-          -> Result (Node.AssocList, Instance.AssocList, [String])
+          -> Result (Node.List, Instance.List, [String])
 parseData (nodes, instances, cinfo) = do
   node_data <- nodes >>= getNodes
   let (node_names, node_idx) = assignIndices node_data
@@ -173,5 +173,5 @@ parseData (nodes, instances, cinfo) = do
 
 -- | Top level function for data loading
 loadData :: String -- ^ Unix socket to use as source
-            -> IO (Result (Node.AssocList, Instance.AssocList, [String]))
+            -> IO (Result (Node.List, Instance.List, [String]))
 loadData master = readData master >>= return . parseData