where
import Codec.Compression.GZip
import Control.Monad
-import Data.Ascii (CIAscii)
+import Data.Ascii (Ascii, CIAscii)
import qualified Data.Ascii as A
import qualified Data.ByteString.Lazy as L
import Data.Char
import Data.Collections
-import Data.Convertible.Base
+import Data.Convertible.Utils
import Data.List (intersperse)
import Data.Monoid
import Data.Ratio
]
where
eTagToDoc ∷ ETag → Doc
- eTagToDoc = text ∘ A.toString ∘ A.fromAsciiBuilder ∘ cs
+ eTagToDoc = text ∘ convertSuccessVia ((⊥) ∷ Ascii)
mimeTypeToDoc ∷ MIMEType → Doc
mimeTypeToDoc = text ∘ A.toString ∘ A.fromAsciiBuilder ∘ printMIMEType