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 =
List.isEmpty group.cards
gather : String -> String -> Group
gather groupName typeName =
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
in
List.filter (\l -> not <| isEmpty l)
@ -169,6 +170,7 @@ view model =
E.column
[ E.width E.fill
, E.height E.fill
, E.clipX
]
[ case model.deck of
Ready deck ->