slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

don't require trailing : in overview.hs

Browse Source
This commit is contained in:
Simon Michael 2007-07-02 15:08:05 +00:00
parent b41e13d23a
commit 2aa93a8cc7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
overview.hs
View File

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