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