makes filter search case insensitive

This commit is contained in:
2019-12-18 15:45:06 +01:00
parent 90bad7e481
commit 210667ced6
2 changed files with 2 additions and 3 deletions

View File

@@ -111,7 +111,7 @@ view : Chest -> Loot -> Html Msg
view model loot = view model loot =
let let
filterLoot txt ls = filterLoot txt ls =
List.filter (\i -> String.contains txt i.name) ls List.filter (\i -> String.contains (String.toLower txt) (String.toLower i.name)) ls
in in
case model of case model of
View filterText renderItem -> View filterText renderItem ->

View File

@@ -16,8 +16,7 @@ type alias ItemRenderer a msg =
view : RowRenderer a msg -> List a -> Html msg view : RowRenderer a msg -> List a -> Html msg
view rowRenderer content = view rowRenderer content =
table [ class "table is-fullwidth" ] table [ class "table is-fullwidth" ]
[ thead [ class "table-header" ] [ thead [] [ th [] [ text "Nom" ] ]
[ th [] [ text "Nom" ] ]
, tbody [] <| , tbody [] <|
List.map List.map
rowRenderer rowRenderer