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