Basic search view for shares

This commit is contained in:
eikek
2021-10-05 01:06:52 +02:00
parent a286556116
commit 83dd675e4f
12 changed files with 577 additions and 23 deletions

View File

@ -8,6 +8,7 @@
module Data.Items exposing
( concat
, first
, flatten
, idSet
, length
, replaceIn
@ -21,6 +22,11 @@ import Set exposing (Set)
import Util.List
flatten : ItemLightList -> List ItemLight
flatten list =
List.concatMap .items list.groups
concat : ItemLightList -> ItemLightList -> ItemLightList
concat l0 l1 =
let