Revision 0944090a hscan.hs
| b/hscan.hs | ||
|---|---|---|
| 130 | 130 |
ccv |
| 131 | 131 |
|
| 132 | 132 |
|
| 133 |
-- | Replace slashes with underscore for saving to filesystem |
|
| 134 |
|
|
| 135 |
fixSlash :: String -> String |
|
| 136 |
fixSlash = map (\x -> if x == '/' then '_' else x) |
|
| 137 |
|
|
| 133 | 138 |
-- | Main function. |
| 134 | 139 |
main :: IO () |
| 135 | 140 |
main = do |
| ... | ... | |
| 170 | 175 |
putStr $ Cluster.printNodes ktn fix_nl |
| 171 | 176 |
let ndata = serializeNodes nl csf ktn |
| 172 | 177 |
idata = serializeInstances il csf ktn kti |
| 173 |
oname = odir </> name
|
|
| 178 |
oname = odir </> (fixSlash name)
|
|
| 174 | 179 |
writeFile (oname <.> "nodes") ndata |
| 175 | 180 |
writeFile (oname <.> "instances") idata) |
| 176 | 181 |
) clusters |
Also available in: Unified diff