Fix item selection after merge

Issue: #1809
This commit is contained in:
eikek
2022-11-07 17:14:33 +01:00
parent dc061b10a6
commit e701040212
3 changed files with 28 additions and 15 deletions

View File

@ -17,8 +17,10 @@ module Data.ItemIds exposing
, fromSet
, isEmpty
, isMember
, maybeOne
, noChange
, nonEmpty
, one
, select
, selectAll
, size
@ -66,6 +68,16 @@ fromSet ids =
ItemIds ids
one : String -> ItemIds
one id =
ItemIds (Set.singleton id)
maybeOne : Maybe String -> ItemIds
maybeOne id =
Maybe.map one id |> Maybe.withDefault empty
union : ItemIds -> ItemIds -> ItemIds
union (ItemIds ids1) (ItemIds ids2) =
ItemIds (Set.union ids1 ids2)