where
import Codec.Compression.GZip
import Control.Applicative
-import qualified Data.Ascii as A
import qualified Data.ByteString.Lazy as L
+import Data.Convertible.Base
+import Data.Convertible.Instances.Ascii ()
import Data.Digest.Pure.SHA
import Data.Maybe
import Data.Time
import Network.HTTP.Lucu.ETag
-import Network.HTTP.Lucu.MIMEType hiding (mimeType)
+import Network.HTTP.Lucu.MIMEType
import Network.HTTP.Lucu.MIMEType.DefaultExtensionMap
import Network.HTTP.Lucu.MIMEType.Guess
-import Network.HTTP.Lucu.MIMEType.TH
import Network.HTTP.Lucu.Utils
import Prelude.Unicode
mkETagFromInput ∷ L.ByteString → ETag
mkETagFromInput input
- = strongETag $ A.unsafeFromString
+ = strongETag $ convertUnsafe
$ "SHA-1:" ⧺ showDigest (sha1 input)