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

refactored updateGameStats and validageGameDate

Browse Source
This commit is contained in:
Jonathan Lamothe
2019-09-04 00:58:44 -04:00
parent 24f02b427e
commit 5b6ecc8c40
1 changed files with 31 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/Mtlstats/Actions.hs
View File

@@ -77,9 +77,7 @@ overtimeCheck s
-- | Adjusts the game stats based on the results of the current game -- | Adjusts the game stats based on the results of the current game
updateGameStats :: ProgState -> ProgState updateGameStats :: ProgState -> ProgState
updateGameStats s = fromMaybe s result updateGameStats s = fromMaybe s $ do
where
result = do
gType <- s^.progMode.gameStateL.gameType gType <- s^.progMode.gameStateL.gameType
won <- gameWon $ s^.progMode.gameStateL won <- gameWon $ s^.progMode.gameStateL
lost <- gameLost $ s^.progMode.gameStateL lost <- gameLost $ s^.progMode.gameStateL
@@ -103,9 +101,7 @@ updateGameStats s = fromMaybe s result
-- | Validates the game date -- | Validates the game date
validateGameDate :: ProgState -> ProgState validateGameDate :: ProgState -> ProgState
validateGameDate s = fromMaybe s result validateGameDate s = fromMaybe s $ do
where
result = do
y <- toInteger <$> s^.progMode.gameStateL.gameYear y <- toInteger <$> s^.progMode.gameStateL.gameYear
m <- s^.progMode.gameStateL.gameMonth m <- s^.progMode.gameStateL.gameMonth
d <- s^.progMode.gameStateL.gameDay d <- s^.progMode.gameStateL.gameDay