test active field in JSON for Player/Goalie
This commit is contained in:
parent
7923827d22
commit
063bebfbb5
|
@ -281,6 +281,7 @@ playerJSON = Object $ HM.fromList
|
||||||
, ( "name", toJSON ("Joe" :: String) )
|
, ( "name", toJSON ("Joe" :: String) )
|
||||||
, ( "position", toJSON ("centre" :: String) )
|
, ( "position", toJSON ("centre" :: String) )
|
||||||
, ( "rookie", toJSON False )
|
, ( "rookie", toJSON False )
|
||||||
|
, ( "active", toJSON True )
|
||||||
, ( "ytd", playerStatsJSON 1 )
|
, ( "ytd", playerStatsJSON 1 )
|
||||||
, ( "lifetime", playerStatsJSON 2 )
|
, ( "lifetime", playerStatsJSON 2 )
|
||||||
]
|
]
|
||||||
|
@ -309,6 +310,7 @@ goalieJSON = Object $ HM.fromList
|
||||||
[ ( "number", toJSON (1 :: Int) )
|
[ ( "number", toJSON (1 :: Int) )
|
||||||
, ( "name", toJSON ("Joe" :: String ) )
|
, ( "name", toJSON ("Joe" :: String ) )
|
||||||
, ( "rookie", toJSON False )
|
, ( "rookie", toJSON False )
|
||||||
|
, ( "active", toJSON True )
|
||||||
, ( "ytd", goalieStatsJSON 1 )
|
, ( "ytd", goalieStatsJSON 1 )
|
||||||
, ( "lifetime", goalieStatsJSON 2 )
|
, ( "lifetime", goalieStatsJSON 2 )
|
||||||
]
|
]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user