summaryrefslogtreecommitdiff
path: root/src/tools/Htmls.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/tools/Htmls.hs')
-rw-r--r--src/tools/Htmls.hs24
1 files changed, 11 insertions, 13 deletions
diff --git a/src/tools/Htmls.hs b/src/tools/Htmls.hs
index 9156e305f..2a343adab 100644
--- a/src/tools/Htmls.hs
+++ b/src/tools/Htmls.hs
@@ -1,27 +1,25 @@
----------------------------------------------------------------------
-- |
--- Module : (Module)
--- Maintainer : (Maintainer)
+-- Module : Htmls
+-- Maintainer : AR
-- Stability : (stable)
-- Portability : (portable)
--
--- > CVS $Date $
--- > CVS $Author $
--- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:23 $
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.4 $
--
--- (Description of the module)
+-- chop an HTML file into separate files, each linked to the next and previous.
+-- the names of the files are n-file, with n = 01,02,...
+-- the chopping is performed at each separator, here defined as @\<!-- NEW --\>@
+--
+-- AR 7\/1\/2002 for the Vinnova meeting in Linköping.
-----------------------------------------------------------------------------
-module Main where
+module Main (main) where
import System
--- chop an HTML file into separate files, each linked to the next and previous.
--- the names of the files are n-file, with n = 01,02,...
--- the chopping is performed at each separator, here defined as "<!-- NEW -->"
-
--- AR 7/1/2002 for the Vinnova meeting in Linköping.
-
main :: IO ()
main = do
file:_ <- getArgs