Skip to content

Commit

Permalink
Example showing brokenness.
Browse files Browse the repository at this point in the history
  • Loading branch information
IreneKnapp committed Feb 10, 2012
1 parent 053ca95 commit d4d083c
Show file tree
Hide file tree
Showing 2 changed files with 21 additions and 0 deletions.
13 changes: 13 additions & 0 deletions 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)"]
8 changes: 8 additions & 0 deletions Murmur3.cabal
Expand Up @@ -22,3 +22,11 @@ Library
build-depends: base >= 4.1 && < 5, build-depends: base >= 4.1 && < 5,
bytestring >= 0.9.1.5 && < 1 bytestring >= 0.9.1.5 && < 1
default-language: Haskell2010 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.