diff options
Diffstat (limited to 'src/tools/Htmls.hs')
| -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 |