import Language.Haskell.TH.Syntax
import Language.Haskell.TH.Quote
import Network.HTTP.Lucu.MIMEType
+import Network.HTTP.Lucu.OrphanInstances ()
import Network.HTTP.Lucu.Parser
-import Network.HTTP.Lucu.Utils
import Prelude.Unicode
import System.FilePath
deriving (Eq, Show, Read, Monoid, Typeable)
instance Lift ExtMap where
- lift (ExtMap m)
- = [| ExtMap $(liftMap liftText lift m) |]
+ lift (ExtMap m) = [| ExtMap $(lift m) |]
-- |'QuasiQuoter' for 'ExtMap' reading Apache @mime.types@.
--
"linebreak"
compile ∷ Ord k ⇒ [(v, [k])] → Either (k, v, v) (Map k v)
-compile = go (∅) ∘ concat ∘ map tr
+compile = go (∅) ∘ concat ∘ (tr <$>)
where
tr ∷ (v, [k]) → [(k, v)]
tr (v, ks) = [(k, v) | k ← ks]