We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 3e75339 commit 5f6de20Copy full SHA for 5f6de20
LensPatch.hs
@@ -124,7 +124,7 @@ findAndDelete (p:ps) o = do s <- o ^? toLens p
124
(_2 %~ setj p o) <$> findAndDelete ps s
125
findAndDelete [] _ = Nothing
126
127
--- |Applies a single JSON patch (described here: <http://jsonpatch.com/>)
+-- |Applies a single JSON patch
128
patch :: Operation -> Value -> Either String Value
129
patch (Add p v) obj = case safeAddAtPath p v obj of
130
(Just a) -> Right a
0 commit comments