loc.hs: hlintify

2025-07-26 09:41:53 -07:00 · 2010-02-13 23:15:37 +00:00
parent 77b3f62610
commit 32ba0d4a0d
1 changed files with 2 additions and 2 deletions
--- a/tests/loc.hs
+++ b/tests/loc.hs
@@ -5,9 +5,9 @@ main = do foo <- getContents
          let actual_loc = filter (not.null) $ filter isntcomment $
                           map (dropWhile (==' ')) $ lines foo
              loc = length actual_loc
-          putStrLn $ show loc
+          print loc
          -- uncomment the following to check for mistakes in isntcomment
-          -- putStr $ unlines $ actual_loc
+          -- print actual_loc

 isntcomment ('-':'-':_) = False
 isntcomment ('{':'-':_) = False -- pragmas