Make use of mimeType quasi-quoter.

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

diff --git a/Network/HTTP/Lucu/MIMEType/TH.hs b/Network/HTTP/Lucu/MIMEType/TH.hs
index 1aae0b4a1accfadcf4e6b24dcd98ff831be541a3..7cdf24497637c4ef081749f9ed88466de307ff56 100644 (file)
--- a/Network/HTTP/Lucu/MIMEType/TH.hs
+++ b/Network/HTTP/Lucu/MIMEType/TH.hs
@@ -2,6 +2,7 @@
     UnicodeSyntax
   , ViewPatterns
   #-}
     UnicodeSyntax
   , ViewPatterns
   #-}

+-- |A module to provide 'QuasiQuoter' for 'MIMEType' literals.

 module Network.HTTP.Lucu.MIMEType.TH
     ( mimeType
     )
 module Network.HTTP.Lucu.MIMEType.TH
     ( mimeType
     )


@@ -15,11 +16,11 @@ import Network.HTTP.Lucu.MIMEType hiding (mimeType)
 import Network.HTTP.Lucu.Utils
 import Prelude.Unicode
 
 import Network.HTTP.Lucu.Utils
 import Prelude.Unicode
 

--- |A 'QuasiQuoter' for 'MIMEType' literals.
+-- |'QuasiQuoter' for 'MIMEType' literals.

 --
 -- @
 --   textPlain :: 'MIMEType'
 --
 -- @
 --   textPlain :: 'MIMEType'

---   textPlain = ['mimeType'| text/plain; charset="UTF-8" |]
+--   textPlain = ['mimeType'| text/plain; charset=\"UTF-8\" |]

 -- @
 mimeType ∷ QuasiQuoter
 mimeType = QuasiQuoter {
 -- @
 mimeType ∷ QuasiQuoter
 mimeType = QuasiQuoter {