Code clean-up using convertible-text.

[Lucu.git] / Network / HTTP / Lucu / MIMEType.hs

diff --git a/Network/HTTP/Lucu/MIMEType.hs b/Network/HTTP/Lucu/MIMEType.hs
index 1c448eedecde5435e0889cffdd49d126df7bc25e..250fdbfc4033a3268412e1b933d2bca37f308918 100644 (file)
--- a/Network/HTTP/Lucu/MIMEType.hs
+++ b/Network/HTTP/Lucu/MIMEType.hs
@@ -17,8 +17,7 @@ module Network.HTTP.Lucu.MIMEType
     where
 import Control.Applicative
 import Data.Ascii (Ascii, AsciiBuilder, CIAscii)
     where
 import Control.Applicative
 import Data.Ascii (Ascii, AsciiBuilder, CIAscii)

-import qualified Data.Ascii as A
-import Data.Attoparsec.Char8 as P
+import Data.Attoparsec.Char8

 import Data.Convertible.Base
 import Data.Convertible.Instances.Ascii ()
 import Data.Convertible.Utils
 import Data.Convertible.Base
 import Data.Convertible.Instances.Ascii ()
 import Data.Convertible.Utils


@@ -77,9 +76,9 @@ instance ConvertAttempt Ascii MIMEType where
 -- |'Parser' for an 'MIMEType'.
 mimeType ∷ Parser MIMEType
 {-# INLINEABLE mimeType #-}
 -- |'Parser' for an 'MIMEType'.
 mimeType ∷ Parser MIMEType
 {-# INLINEABLE mimeType #-}

-mimeType = do media  ← A.toCIAscii <$> token
+mimeType = do media  ← cs <$> token

               _      ← char '/'
               _      ← char '/'

-              sub    ← A.toCIAscii <$> token
+              sub    ← cs <$> token

               params ← mimeParams
               return $ MIMEType media sub params
 
               params ← mimeParams
               return $ MIMEType media sub params