display active flags in new player/goalie creation summaries
This commit is contained in:
parent
439aab99d3
commit
960fbb3443
|
@ -75,6 +75,7 @@ confirmCreateGoalieC = Controller
|
||||||
[ ( "Goalie number", maybe "?" show $ cgs^.cgsNumber )
|
[ ( "Goalie number", maybe "?" show $ cgs^.cgsNumber )
|
||||||
, ( "Goalie name", cgs^.cgsName )
|
, ( "Goalie name", cgs^.cgsName )
|
||||||
, ( "Rookie", maybe "?" show $ cgs^.cgsRookieFlag )
|
, ( "Rookie", maybe "?" show $ cgs^.cgsRookieFlag )
|
||||||
|
, ( "Active", maybe "?" show $ cgs^.cgsActiveFlag )
|
||||||
]
|
]
|
||||||
++ [ ""
|
++ [ ""
|
||||||
, "Create goalie: are you sure? (Y/N)"
|
, "Create goalie: are you sure? (Y/N)"
|
||||||
|
|
|
@ -80,6 +80,7 @@ confirmCreatePlayerC = Controller
|
||||||
, ( "Player name", cps^.cpsName )
|
, ( "Player name", cps^.cpsName )
|
||||||
, ( "Player position", cps^.cpsPosition )
|
, ( "Player position", cps^.cpsPosition )
|
||||||
, ( "Rookie", maybe "?" show $ cps^.cpsRookieFlag )
|
, ( "Rookie", maybe "?" show $ cps^.cpsRookieFlag )
|
||||||
|
, ( "Active", maybe "?" show $ cps^.cpsActiveFlag )
|
||||||
]
|
]
|
||||||
++ [ ""
|
++ [ ""
|
||||||
, "Create player: are you sure? (Y/N)"
|
, "Create player: are you sure? (Y/N)"
|
||||||
|
|
Loading…
Reference in New Issue
Block a user