Whitespace only in hash001 test
authorIan Lynagh <igloo@earth.li>
Sat, 19 Nov 2011 23:14:21 +0000 (23:14 +0000)
committerIan Lynagh <igloo@earth.li>
Sat, 19 Nov 2011 23:14:21 +0000 (23:14 +0000)
tests/hash001.hs

index 727f488..3ea6563 100644 (file)
@@ -1,3 +1,4 @@
+
 import Data.HashTable
 import qualified Data.HashTable as HT
 
@@ -5,10 +6,11 @@ test :: Int -> IO ()
 test n = do ht <- new (==) hashInt
             sequence_ [ insert ht key 0 | key <- [0..n]]
             sequence_ [ insert ht key 1 | key <- [0..n]]
-          
+
             let check key = do (Just val) <- HT.lookup ht key
-                               if val==1 then return () else putStrLn $ show key 
-          
+                               if val==1 then return ()
+                                         else putStrLn $ show key
+
             sequence_ [ check key | key <- [0..n]]
 
 main = test 2048