Wrap cards on smaller screens

This commit is contained in:
Correl Roush 2020-05-15 00:22:21 -04:00
parent f0d4d307bd
commit 2b2947fc02

View file

@ -282,7 +282,7 @@ viewCards selected =
, label = el [ centerX, centerY ] (text value)
}
in
row [ width fill, spacing 30 ] <|
wrappedRow [ centerX, width fill, spacing 30] <|
List.map card [ "1", "3", "5", "8", "13" ]