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

use ?~ operator (where applicable)

Browse Source
This commit is contained in:
Jonathan Lamothe
2019-08-22 10:25:23 -04:00
parent 2e6a0f5ba4
commit 4f2dd119d2
3 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/Mtlstats/Actions.hs
View File

@@ -29,7 +29,7 @@ module Mtlstats.Actions
, setAwayGame
) where
import Lens.Micro (over, (&), (.~), (%~))
import Lens.Micro (over, (&), (.~), (?~), (%~))
import Mtlstats.Types
@@ -52,11 +52,11 @@ startNewGame
-- | Sets the game type to 'HomeGame'
setHomeGame :: ProgState -> ProgState
setHomeGame = over progMode $ \case
NewGame gs -> NewGame (gs & gameType .~ Just HomeGame)
_ -> NewGame $ newGameState & gameType .~ Just HomeGame
NewGame gs -> NewGame (gs & gameType ?~ HomeGame)
_ -> NewGame $ newGameState & gameType ?~ HomeGame
-- | Sets the game type to 'AwayGame'
setAwayGame :: ProgState -> ProgState
setAwayGame = over progMode $ \case
NewGame gs -> NewGame (gs & gameType .~ Just AwayGame)
_ -> NewGame $ newGameState & gameType .~ Just AwayGame
NewGame gs -> NewGame (gs & gameType ?~ AwayGame)
_ -> NewGame $ newGameState & gameType ?~ AwayGame