diff --git a/Network/DomainAuth/DKIM/Btag.hs b/Network/DomainAuth/DKIM/Btag.hs
--- a/Network/DomainAuth/DKIM/Btag.hs
+++ b/Network/DomainAuth/DKIM/Btag.hs
@@ -1,6 +1,5 @@
 module Network.DomainAuth.DKIM.Btag where
 
-import Control.Applicative
 import Data.ByteString.Lazy.Char8
 import Data.Maybe
 import Text.Appar.LazyByteString
diff --git a/Network/DomainAuth/DKIM/Verify.hs b/Network/DomainAuth/DKIM/Verify.hs
--- a/Network/DomainAuth/DKIM/Verify.hs
+++ b/Network/DomainAuth/DKIM/Verify.hs
@@ -51,15 +51,15 @@
     hashfunc2 = hashAlgo2 (dkimSigAlgo dkim)
     sig = B.decode (dkimSignature dkim)
     cmail = prepareDKIM dkim mail
-    bodyHash1 = bytestringDigest . hashfunc2 . canonDkimBody (dkimBodyCanon dkim) . mailBody
+    bodyHash1 = hashfunc2 . canonDkimBody (dkimBodyCanon dkim) . mailBody
     bodyHash2 = B.decode . dkimBodyHash
 
 hashAlgo1 :: DkimSigAlgo -> HashInfo
 hashAlgo1 RSA_SHA1   = ha_SHA1
 hashAlgo1 RSA_SHA256 = ha_SHA256
 
-hashAlgo2 :: DkimSigAlgo -> L.ByteString -> Digest
-hashAlgo2 RSA_SHA1   = sha1
-hashAlgo2 RSA_SHA256 = sha256
+hashAlgo2 :: DkimSigAlgo -> L.ByteString -> L.ByteString
+hashAlgo2 RSA_SHA1   = bytestringDigest . sha1
+hashAlgo2 RSA_SHA256 = bytestringDigest . sha256
 
 
diff --git a/Network/DomainAuth/PRD/Lexer.hs b/Network/DomainAuth/PRD/Lexer.hs
--- a/Network/DomainAuth/PRD/Lexer.hs
+++ b/Network/DomainAuth/PRD/Lexer.hs
@@ -2,7 +2,6 @@
     structured
   ) where
 
-import Control.Applicative
 import Text.Appar.LazyByteString
 
 ----------------------------------------------------------------
diff --git a/Network/DomainAuth/SPF/Parser.hs b/Network/DomainAuth/SPF/Parser.hs
--- a/Network/DomainAuth/SPF/Parser.hs
+++ b/Network/DomainAuth/SPF/Parser.hs
@@ -1,6 +1,5 @@
 module Network.DomainAuth.SPF.Parser (parseSPF) where
 
-import Control.Applicative
 import qualified Data.ByteString.Lazy.Char8 as L
 import Network.DNS (Domain)
 import Network.DomainAuth.SPF.Types
diff --git a/domain-auth.cabal b/domain-auth.cabal
--- a/domain-auth.cabal
+++ b/domain-auth.cabal
@@ -1,5 +1,5 @@
 Name:                   domain-auth
-Version:                0.1.0
+Version:                0.1.1
 Author:                 Kazu Yamamoto <kazu@iij.ad.jp>
 Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp>
 License:                BSD3