git.iko.soy/patch
on develop help sign in
`isNull` -> `isEmpty`
commit510e5e22c1a7f1a2407351a6087c75562f1bf1b8 authorJohn Ericson <John.Ericson@Obsidian.Systems> dateTue 21 Jan 2020, 12:26 (7 years ago) parentb97e921
2 files changed+2−2
compare with develop
unifiedsplit
src/Data/Monoid/DecidablyEmpty.hs+1−1 src/Data/Patch/MapWithPatchingMove.hs+1−1
src/Data/Monoid/DecidablyEmpty.hs+1−1
@@ -2,4 +2,4 @@
22module Data.Monoid.DecidablyEmpty where
33
44class Monoid a => DecidablyEmpty a where
5− isNull :: a -> Bool
5+ isEmpty :: a -> Bool
src/Data/Patch/MapWithPatchingMove.hs+1−1
@@ -271,7 +271,7 @@ instance ( Ord k
271271 h :: (k, (Maybe k, From k p)) -> [(k, Fixup k p)]
272272 h (_, (mToAfter, editBefore)) = case (mToAfter, editBefore) of
273273 (Just toAfter, From_Move fromBefore p)
274− | fromBefore == toAfter && isNull p
274+ | fromBefore == toAfter && isEmpty p
275275 -> [(toAfter, Fixup_Delete)]
276276 | otherwise
277277 -> [ (toAfter, Fixup_Update (This editBefore))