fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

make database less brittle when something's wrong with the JSON file

Browse Source
This commit is contained in:
Jonathan Lamothe
2020-01-03 21:37:33 -05:00
parent 2768934c7c
commit 3ee97406f1
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/Mtlstats/Types.hs
View File

@@ -528,11 +528,11 @@ makeLenses ''GameStats
instance FromJSON Database where instance FromJSON Database where
parseJSON = withObject "Database" $ \v -> Database parseJSON = withObject "Database" $ \v -> Database
<$> v .: "players" <$> v .:? "players" .!= []
<*> v .: "goalies" <*> v .:? "goalies" .!= []
<*> v .: "games" <*> v .:? "games" .!= 0
<*> v .: "home_game_stats" <*> v .:? "home_game_stats" .!= newGameStats
<*> v .: "away_game_stats" <*> v .:? "away_game_stats" .!= newGameStats
instance ToJSON Database where instance ToJSON Database where
toJSON (Database players goalies games hgs ags) = object toJSON (Database players goalies games hgs ags) = object