deriving (Eq, Show, Read, Monoid, Typeable)
C.derive [d| instance Unfoldable MIMEParams (CIAscii, Text)
+ instance Foldable MIMEParams (CIAscii, Text)
|]
--- 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
-
-- FIXME: auto-derive
instance Collection MIMEParams (CIAscii, Text) where
{-# INLINE filter #-}