@@ -1,7 +1,10 @@
11{-# LANGUAGE DeriveFoldable #-}
22{-# LANGUAGE DeriveFunctor #-}
33{-# LANGUAGE DeriveTraversable #-}
4+{-# LANGUAGE FlexibleInstances #-}
45{-# LANGUAGE GeneralizedNewtypeDeriving #-}
6+{-# LANGUAGE MultiParamTypeClasses #-}
7+{-# LANGUAGE TemplateHaskell #-}
58{-# LANGUAGE TypeFamilies #-}
69-- | Module containing 'PatchIntMap', a 'Patch' for 'IntMap' which allows for
710-- insert/update or delete of associations.
@@ -27,6 +30,8 @@ instance Patch (PatchIntMap a) where
2730 adds = IntMap.mapMaybe id p
2831 in IntMap.union adds $ v `IntMap.difference` removes
2932
33+makeWrapped ''PatchIntMap
34+
3035-- | @a <> b@ will apply the changes of @b@ and then apply the changes of @a@.
3136-- If the same key is modified by both patches, the one on the left will take
3237-- precedence.