don't require trailing : in overview.hs

This commit is contained in:
Simon Michael 2007-07-02 15:08:05 +00:00
parent b41e13d23a
commit 2aa93a8cc7

View File

@ -26,7 +26,7 @@ main = do
let mods = takeWhile ((> 0) . length) $
dropWhile ((== 0) . length) $
dropWhile ((> 0) . length) $
dropWhile (notElem "overview:" . words) $
dropWhile (notElem "overview" . words) $
lines file
putStr $ unlines mods
let files = concat $ map ((++ ".hs ") . dropWhile (== ' ')) mods