, TypeSynonymInstances
, UnicodeSyntax
#-}
+{-# OPTIONS_GHC -ddump-splices #-} -- FIXME
+-- GHC 7.0.3 gives us a false warning.
+{-# OPTIONS_GHC -fno-warn-missing-methods #-}
-- |Parsing and printing MIME parameter values
-- (<http://tools.ietf.org/html/rfc2231>).
module Network.HTTP.Lucu.MIMEParams
import Data.Char
import Data.Collections
import Data.Collections.BaseInstances ()
+import qualified Data.Collections.Newtype.TH as C
import qualified Data.Map as M (Map)
import Data.Monoid
import Data.Monoid.Unicode
= MIMEParams (M.Map CIAscii Text)
deriving (Eq, Show, Read, Monoid, Typeable)
--- FIXME: auto-derive
-instance Unfoldable MIMEParams (CIAscii, Text) where
- {-# INLINE insert #-}
- insert p (MIMEParams m)
- = MIMEParams $ insert p m
- {-# INLINE empty #-}
- empty
- = MIMEParams empty
- {-# INLINE singleton #-}
- singleton p
- = MIMEParams $ singleton p
- {-# INLINE insertMany #-}
- insertMany f (MIMEParams m)
- = MIMEParams $ insertMany f m
- {-# INLINE insertManySorted #-}
- insertManySorted f (MIMEParams m)
- = MIMEParams $ insertManySorted f m
-
--- FIXME: auto-derive
-instance Foldable MIMEParams (CIAscii, Text) where
- {-# INLINE null #-}
- null (MIMEParams m) = null m
- {-# INLINE size #-}
- size (MIMEParams m) = size m
- {-# INLINE foldr #-}
- foldr f b (MIMEParams m) = foldr f b m
+C.derive [d| instance Unfoldable MIMEParams (CIAscii, Text)
+ instance Foldable MIMEParams (CIAscii, Text)
+ |]
-- FIXME: auto-derive
instance Collection MIMEParams (CIAscii, Text) where