jfmengels/elm-review
1
1
Fork 0
mirror of https://github.com/jfmengels/elm-review.git synced 2024-09-11 16:16:09 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add ContentHash.areEqualForList

Browse Source
This commit is contained in:
Jeroen Engels 2023-05-30 23:45:28 +02:00
parent f3e9a05134
commit b905d93b47
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/Review/Cache/ContentHash.elm
View File

@ -1,4 +1,4 @@
module Review.Cache.ContentHash exposing (ContentHash, areEqual, areEqualForMaybe, hash)
module Review.Cache.ContentHash exposing (ContentHash, areEqual, areEqualForList, areEqualForMaybe, hash)
import Vendor.Murmur3 as Murmur3
@ -28,3 +28,18 @@ areEqualForMaybe a b =
_ ->
False
areEqualForList : List ContentHash -> List ContentHash -> Bool
areEqualForList aList bList =
case aList of
[] ->
List.isEmpty bList
a :: aTail ->
case bList of
[] ->
False
b :: bTail ->
areEqual a b && areEqualForList aTail bTail