Permalink
Browse files

Example showing brokenness.

  • Loading branch information...
1 parent 053ca95 commit d4d083cb251652d02bc3000e1732c1d8dbca496a @IreneKnapp committed Feb 10, 2012
Showing with 21 additions and 0 deletions.
  1. +13 −0 Main.hs
  2. +8 −0 Murmur3.cabal
View
13 Main.hs
@@ -0,0 +1,13 @@
+module Main (main) where
+
+import qualified Data.ByteString.UTF8 as UTF8
+import Data.Digest.Murmur3
+
+
+main :: IO ()
+main = do
+ mapM_ (\string -> do
+ putStrLn $ show $ asByteString $ hash $ UTF8.fromString string)
+ ["Int8", "Int16", "Int32", "Int64", "Word8", "Word16", "Word32",
+ "Word64", "Float", "Double", "UTF8", "Blob",
+ "Structure(name\000,value\000)"]
View
@@ -22,3 +22,11 @@ Library
build-depends: base >= 4.1 && < 5,
bytestring >= 0.9.1.5 && < 1
default-language: Haskell2010
+
+Executable test
+ main-is: Main.hs
+ other-modules: Data.Digest.Murmur3
+ build-depends: base >= 4.1 && < 5,
+ bytestring >= 0.9.1.5 && < 1,
+ utf8-string >= 0.3.7 && < 1
+ default-language: Haskell2010

0 comments on commit d4d083c

Please sign in to comment.