-instance (Lift k, Lift v) ⇒ Lift (Map k v) where
- lift m
- | M.null m = [| M.empty |]
- | otherwise = [| M.fromDistinctAscList $(liftPairs (M.toAscList m)) |]
+instance (Lift k, Lift v, Collection c (k, v)) ⇒ Lift c where
+ lift c
+ | null c = [| empty |]
+ | otherwise = [| fromList $(liftPairs (fromFoldable c)) |]