OMS/tiedote.md
3
0
Fork 0
Code Issues 14 Pull Requests Projects Releases Wiki Activity

Korjaa updateListBy

Browse Source
This commit is contained in:
Saku Laesvuori 2023-09-02 14:36:11 +03:00
parent 5862f87add
commit 6ff0765cfb
Signed by: slaesvuo
GPG Key ID: 257D284A2A1D3A32
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/TiedoteMD/State.hs
View File

@ -35,7 +35,7 @@ emptyState = State
updateListBy :: (a -> a -> Bool) -> [a] -> [a] -> [a] updateListBy :: (a -> a -> Bool) -> [a] -> [a] -> [a]
updateListBy f old new = olds <> news updateListBy f old new = olds <> news
where news = differenceBy f new old where news = differenceBy f new old
olds = intersectBy f old news olds = intersectBy f old new
elemBy :: (a -> b -> Bool) -> a -> [b] -> Bool elemBy :: (a -> b -> Bool) -> a -> [b] -> Bool
elemBy = (.) any elemBy = (.) any