twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-05-19 00:20:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

loc.hs: hlintify

Browse Source
This commit is contained in:
gwern0 2010-02-13 23:15:37 +00:00
parent 77b3f62610
commit 32ba0d4a0d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/loc.hs
View File

@ -5,9 +5,9 @@ main = do foo <- getContents
let actual_loc = filter (not.null) $ filter isntcomment $ let actual_loc = filter (not.null) $ filter isntcomment $
map (dropWhile (==' ')) $ lines foo map (dropWhile (==' ')) $ lines foo
loc = length actual_loc loc = length actual_loc
putStrLn $ show loc print loc
-- uncomment the following to check for mistakes in isntcomment -- uncomment the following to check for mistakes in isntcomment
-- putStr $ unlines $ actual_loc -- print actual_loc
isntcomment ('-':'-':_) = False isntcomment ('-':'-':_) = False
isntcomment ('{':'-':_) = False -- pragmas isntcomment ('{':'-':_) = False -- pragmas