test active field in JSON for Player/Goalie

This commit is contained in:
Jonathan Lamothe 2020-01-11 01:36:42 -05:00
parent 7923827d22
commit 063bebfbb5

View File

@ -281,6 +281,7 @@ playerJSON = Object $ HM.fromList
, ( "name", toJSON ("Joe" :: String) )
, ( "position", toJSON ("centre" :: String) )
, ( "rookie", toJSON False )
, ( "active", toJSON True )
, ( "ytd", playerStatsJSON 1 )
, ( "lifetime", playerStatsJSON 2 )
]
@ -309,6 +310,7 @@ goalieJSON = Object $ HM.fromList
[ ( "number", toJSON (1 :: Int) )
, ( "name", toJSON ("Joe" :: String ) )
, ( "rookie", toJSON False )
, ( "active", toJSON True )
, ( "ytd", goalieStatsJSON 1 )
, ( "lifetime", goalieStatsJSON 2 )
]