Revision 66ea8434 hscan.hs

b/hscan.hs
150 150 
                   let ndata = serializeNodes csf nl
151 151 
                       idata = serializeInstances csf nl il
152 152 
                       oname = odir </> fixSlash name
153 
                   writeFile (oname <.> "nodes") ndata
154 
                   writeFile (oname <.> "instances") idata)
155 
       ) clusters
153 
                       adata = ndata ++ ['\n'] ++ idata
154 
                   writeFile (oname <.> "data") adata)
155 
        ) clusters

Also available in: Unified diff