Fix excess scrolling in mobile

Something was trailing off the screen area causing the app to scroll
away.
This commit is contained in:
Correl Roush 2023-01-11 22:48:16 -05:00
parent 02976ee4d5
commit 20e8c024ce

View file

@ -76,10 +76,11 @@ groups cards =
isEmpty : Group -> Bool isEmpty : Group -> Bool
isEmpty group = isEmpty group =
List.isEmpty group.cards List.isEmpty group.cards
gather : String -> String -> Group gather : String -> String -> Group
gather groupName typeName = gather groupName typeName =
List.filter (isA typeName) cards List.filter (isA typeName) cards
|> List.sortBy (\dc ->(dc.card.cmc, dc.card.name)) |> List.sortBy (\dc -> ( dc.card.cmc, dc.card.name ))
|> Group groupName |> Group groupName
in in
List.filter (\l -> not <| isEmpty l) List.filter (\l -> not <| isEmpty l)
@ -169,6 +170,7 @@ view model =
E.column E.column
[ E.width E.fill [ E.width E.fill
, E.height E.fill , E.height E.fill
, E.clipX
] ]
[ case model.deck of [ case model.deck of
Ready deck -> Ready deck ->