Merge pull request #1 from davidar/master

Fix compile errors
multiformats · Aug 17, 2015 · 41a51de · 41a51de
2 parents 6aa8260 + 061ef82
commit 41a51de
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/main/Main.hs b/main/Main.hs
@@ -6,9 +6,8 @@ import           Crypto.Hash              (Digest)
 import qualified Crypto.Hash              as CH
 import           Data.Byteable            (toBytes)
 import           Data.ByteString          (ByteString)
-import           Data.ByteString.Lazy     (fromStrict, toStrict)
+import           Data.ByteString.Lazy     (toStrict)
 import           Options.Applicative
-import           System.Exit              (exitFailure, exitSuccess)
 
 import           System.IO.Streams        (InputStream, stdin, stdout,
                                            withFileAsInput, write)

diff --git a/src/Data/Multihash/Digest.hs b/src/Data/Multihash/Digest.hs
@@ -1,6 +1,7 @@
 module Data.Multihash.Digest where
 
 
+import           Control.Applicative        ((<$>))
 import           Data.Attoparsec.ByteString (Parser, parseOnly)
 import qualified Data.Attoparsec.ByteString as A
 import qualified Data.ByteString            as BS
@@ -15,7 +16,7 @@ import           Data.Word                  (Word8)
 data MultihashDigest =
     MultihashDigest
     { algorithm :: !HashAlgorithm
-    , lenght    :: !Length
+    , length    :: !Length
     , digest    :: !Digest
     } deriving (Show, Eq)