Revision 10ef6b4e hscan.hs

b/hscan.hs
95 95 
processData input_data = do
96 96 
  (gl, nl, il, _) <- input_data >>= Loader.mergeData [] [] []
97 97 
  let (_, fix_nl) = Loader.checkData nl il
98 
      adata = serializeCluster nl il
98 
      adata = serializeCluster gl nl il
99 99 
  return (gl, fix_nl, il, adata)
100 100 

  		





  101
  101
  
    
-- | Writes cluster data out


  		












Also available in:
  Unified diff