From 96ea8f3cdae6212010f845308b1aae533a5afa8a Mon Sep 17 00:00:00 2001
From: gwern0 <gwern0@gmail.com>
Date: Sun, 14 Feb 2010 00:15:37 +0100
Subject: loc.hs: hlintify

Ignore-this: c447928ce68d0a968b55af3539c979fa

darcs-hash:20100213231537-f7719-a5c1073d4a25076f08de63521bc37f5833fc7a5b
---
 tests/loc.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/loc.hs b/tests/loc.hs
index 09399ea..238204a 100644
--- 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
-- 
cgit v1.2.3