@@ -48,6 +48,13 @@ patchMapWithMove m = if valid then Just $ PatchMapWithMove m else Nothing
48 From_Move from -> Just (from, to)
48 From_Move from -> Just (from, to)
49 _ -> Nothing
49 _ -> Nothing
51+-- | Create a 'PatchMapWithMove' that inserts everything in the given 'Map'
52+patchMapWithMoveInsertAll :: Map k v -> PatchMapWithMove k v
53+patchMapWithMoveInsertAll m = PatchMapWithMove $ flip fmap m $ \v -> NodeInfo
54+ { _nodeInfo_from = From_Insert v
55+ , _nodeInfo_to = Nothing
51-- | Extract the internal representation of the 'PatchMapWithMove'
58-- | Extract the internal representation of the 'PatchMapWithMove'
52unPatchMapWithMove :: PatchMapWithMove k v -> Map k (NodeInfo k v)
59unPatchMapWithMove :: PatchMapWithMove k v -> Map k (NodeInfo k v)
53unPatchMapWithMove (PatchMapWithMove p) = p
60unPatchMapWithMove (PatchMapWithMove p) = p