@@ -46,7 +46,7 @@ bodyW seed = divClass "main" $ divClass "container" $ mdo
46 , buttonW "add" "Append 1,000 rows" $ appendRows 1000
46 , buttonW "add" "Append 1,000 rows" $ appendRows 1000
47 , buttonW "update" "Update every 10th row" $ updateRows (\i -> mod i 10 == 0) (<> " !!!")
47 , buttonW "update" "Update every 10th row" $ updateRows (\i -> mod i 10 == 0) (<> " !!!")
48 , buttonW "clear" "Clear" $ clearRows
48 , buttonW "clear" "Clear" $ clearRows
49− , buttonW "swaprows" "Swap Rows" $ swapRows (4, 9)
49+ , buttonW "swaprows" "Swap Rows" $ swapRows (1, 998)
52 let initial = Model { rng = mkStdGen seed, nextNum = 1, selection = Nothing }
52 let initial = Model { rng = mkStdGen seed, nextNum = 1, selection = Nothing }