Change how some text is centered.

This commit is contained in:
evancz 2012-08-20 14:44:46 +02:00
parent a53dfdea46
commit b5b87f25c0

View file

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