X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FMIMEType%2FTH.hs;fp=Network%2FHTTP%2FLucu%2FMIMEType%2FTH.hs;h=0000000000000000000000000000000000000000;hp=9e16efcb0571a0a76f7e00b8ae190e1af706f7da;hb=db4a546d0d462cb94639b1f273bf0b78bccc960c;hpb=2dfd3e662204585dd64f2ddbe3b3eed0c708c68f

diff --git a/Network/HTTP/Lucu/MIMEType/TH.hs b/Network/HTTP/Lucu/MIMEType/TH.hs
deleted file mode 100644
index 9e16efc..0000000
--- a/Network/HTTP/Lucu/MIMEType/TH.hs
+++ /dev/null
@@ -1,47 +0,0 @@
-{-# LANGUAGE
-    UnicodeSyntax
-  , ViewPatterns
-  #-}
--- |A module to provide 'QuasiQuoter' for 'MIMEType' literals.
-module Network.HTTP.Lucu.MIMEType.TH
-    ( mimeType
-    )
-    where
-import Control.Monad.Unicode
-import Data.Ascii (Ascii)
-import Data.Attempt
-import Data.Convertible.Base
-import Language.Haskell.TH.Syntax
-import Language.Haskell.TH.Quote
-import Network.HTTP.Lucu.MIMEType hiding (mimeType)
-import Network.HTTP.Lucu.Utils
-import Prelude.Unicode
-
--- |'QuasiQuoter' for 'MIMEType' literals.
---
--- @
---   textPlain :: 'MIMEType'
---   textPlain = ['mimeType'| text/plain; charset=\"UTF-8\" |]
--- @
-mimeType ∷ QuasiQuoter
-mimeType = QuasiQuoter {
-             quoteExp  = (lift =≪) ∘ (parse =≪) ∘ toAscii
-           , quotePat  = const unsupported
-           , quoteType = const unsupported
-           , quoteDec  = const unsupported
-           }
-    where
-      parse ∷ Monad m ⇒ Ascii → m MIMEType
-      parse a
-          = case ca a of
-              Success t → return t
-              Failure e → fail (show e)
-
-      toAscii ∷ Monad m ⇒ String → m Ascii
-      toAscii (trim → s)
-          = case ca s of
-              Success a → return a
-              Failure e → fail (show e)
-
-      unsupported ∷ Monad m ⇒ m α
-      unsupported = fail "Unsupported usage of mimeType quasi-quoter."