From fe045070cf4333cee0e634db5c877493d1b16030 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 14 Sep 2004 17:05:46 +0000
Subject: gfcm header

---
 src/tools/Htmls.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/tools')

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
-- 
cgit v1.2.3