@@ -19,9 +19,7 @@
1919module Data.Patch.MapWithMove
2020 ( PatchMapWithMove
2121 ( PatchMapWithMove
22− , -- | Extract the representation of the 'PatchMapWithMove' as a map of
23− -- 'NodeInfo'.
24− unPatchMapWithMove
22+ , unPatchMapWithMove
2523 , ..
2624 )
2725 , patchMapWithMove
@@ -99,6 +97,8 @@ pattern Coerce x <- (coerce -> x)
9997
10098{-# COMPLETE PatchMapWithMove #-}
10199pattern PatchMapWithMove :: Map k (NodeInfo k v) -> PatchMapWithMove k v
100+-- | Extract the representation of the 'PatchMapWithMove' as a map of
101+-- 'NodeInfo'.
102102unPatchMapWithMove :: PatchMapWithMove k v -> Map k (NodeInfo k v)
103103pattern PatchMapWithMove { unPatchMapWithMove } = PatchMapWithMove' (PatchMapWithPatchingMove (Coerce unPatchMapWithMove))
104104