diff options
| author | aarne <unknown> | 2004-09-14 17:05:46 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-09-14 17:05:46 +0000 |
| commit | fe045070cf4333cee0e634db5c877493d1b16030 (patch) | |
| tree | 285273eb564dbd3ad510a183a1c701ec02a1b57a /src/tools | |
| parent | 35f884ddfd984edb7d580cd54c6f2f1ad9358a34 (diff) | |
gfcm header
Diffstat (limited to 'src/tools')
| -rw-r--r-- | src/tools/Htmls.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/tools/Htmls.hs b/src/tools/Htmls.hs index 6850a38a8..7c4896c54 100644 --- a/src/tools/Htmls.hs +++ b/src/tools/Htmls.hs @@ -17,8 +17,9 @@ htmls :: FilePath -> IO () htmls file = do s <- readFile file let ss = allPages s - mapM (uncurry writeFile) (map (mkFile file (length ss)) ss) - return () + lg = length ss + putStrLn $ show lg ++ " slides" + mapM_ (uncurry writeFile . mkFile file lg) ss allPages :: String -> [(Int,String)] allPages = zip [1..] . map unlines . chop . lines where |