[commit: base] master: Whitespace only in hash001 test (c8dc0b8)
Ian Lynagh
igloo at earth.li
Sun Nov 20 01:12:33 CET 2011
Repository : ssh://darcs.haskell.org//srv/darcs/packages/base
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/c8dc0b8b5026d9c25f93d793b59c1fbbe3d9f4a5
>---------------------------------------------------------------
commit c8dc0b8b5026d9c25f93d793b59c1fbbe3d9f4a5
Author: Ian Lynagh <igloo at earth.li>
Date: Sat Nov 19 23:14:21 2011 +0000
Whitespace only in hash001 test
>---------------------------------------------------------------
tests/hash001.hs | 4 +++-
1 files changed, 3 insertions(+), 1 deletions(-)
diff --git a/tests/hash001.hs b/tests/hash001.hs
index 727f488..3ea6563 100644
--- a/tests/hash001.hs
+++ b/tests/hash001.hs
@@ -1,3 +1,4 @@
+
import Data.HashTable
import qualified Data.HashTable as HT
@@ -7,7 +8,8 @@ test n = do ht <- new (==) hashInt
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]]
More information about the Cvs-libraries
mailing list