--- 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 #-}
- filter f (MIMEParams m) = MIMEParams $ filter f m
-
--- FIXME: auto-derive
-instance Indexed MIMEParams CIAscii Text where
- {-# INLINE index #-}
- index k (MIMEParams m) = index k m
- {-# INLINE adjust #-}
- adjust f k (MIMEParams m) = MIMEParams $ adjust f k m
- {-# INLINE inDomain #-}
- inDomain k (MIMEParams m) = inDomain k m
-