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,6 +76,7 @@ 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
@ -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 ->