@@ -296,7 +296,7 @@ gameState = foldp stepGame defaultGame input
296296scoreBoard w inPlay p1 p2 =
297297 let { code = text . monospace . toText
298298 ; stack top bottom = flow down [ code " ", code top, code bottom ]
299− ; msg = width w . box 2 . text . monospace $ toText "Press SPACE to begin"
299+ ; msg = width w . centeredText . monospace $ toText "Press SPACE to begin"
300300 ; score = width w . box 2 $ flow right
301301 [ stack "W" "S", rectangle 20 1
302302 , text . Text.height 4 $ show p1 ++ toText " " ++ show p2