processData :: Result (Group.List, Node.List, Instance.List, [String])
-> Result (Group.List, Node.List, Instance.List, String)
processData input_data = do
- (gl, nl, il, _) <- input_data >>= Loader.mergeData [] [] []
+ (gl, nl, il, ctags) <- input_data >>= Loader.mergeData [] [] []
let (_, fix_nl) = Loader.checkData nl il
- adata = serializeCluster gl nl il
+ adata = serializeCluster gl nl il ctags
return (gl, fix_nl, il, adata)
-- | Writes cluster data out