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 f9a96d7 commit 5ca06d9Copy full SHA for 5ca06d9
src/Data/TreeDiff/List.hs
@@ -41,9 +41,6 @@ instance NFData a => NFData (Edit a) where
41
-- prop> \xs ys -> length (diffBy (==) xs ys) >= max (length xs) (length (ys :: String))
42
-- prop> \xs ys -> length (diffBy (==) xs ys) <= length xs + length (ys :: String)
43
--
44
--- /Note:/ currently this has O(n*m) memory requirements, for the sake
45
--- of more obviously correct implementation.
46
---
47
diffBy :: forall a. Show a => (a -> a -> Bool) -> [a] -> [a] -> [Edit a]
48
diffBy _ [] [] = []
49
diffBy _ [] ys' = map Ins ys'
0 commit comments