@@ -100,7 +100,7 @@ type To k = PM.To k
100100
101101traverseNodeInfo
102102 :: Traversal (NodeInfo k a) (NodeInfo k b) a b
103−traverseNodeInfo = PM.bitraverseNodeInfo pure (\(~Proxy) -> pure Proxy)
103+traverseNodeInfo = PM.bitraverseNodeInfo pure (\ ~Proxy -> pure Proxy)
104104
105105-- | Create a 'PatchMapWithMove', validating it
106106patchMapWithMove :: Ord k => Map k (NodeInfo k v) -> Maybe (PatchMapWithMove k v)
@@ -147,7 +147,7 @@ unsafePatchMapWithMove = PatchMapWithMove' . PM.unsafePatchMapWithPatchingMove
147147-- | Apply the insertions, deletions, and moves to a given 'Map'
148148instance Ord k => Patch (PatchMapWithMove k v) where
149149 type PatchTarget (PatchMapWithMove k v) = Map k v
150− apply (PatchMapWithMove' p) old = apply p old
150+ apply (PatchMapWithMove' p) = apply p
151151
152152-- | Returns all the new elements that will be added to the 'Map'.
153153patchMapWithMoveNewElements :: PatchMapWithMove k v -> [v]