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

6
test/ActionsSpec.hs
View File

@@ -22,7 +22,7 @@ along with this program. If not, see <https://www.gnu.org/licenses/>.
module ActionsSpec (spec) where
import Control.Monad (replicateM)
import Lens.Micro ((&), (.~), (^.))
import Lens.Micro ((&), (.~), (?~), (^.))
import System.Random (randomRIO)
import Test.Hspec (Spec, context, describe, it, shouldBe, shouldNotBe)
@@ -108,7 +108,7 @@ resetYtdSpec = describe "resetYtd" $
setHomeGameSpec :: Spec
setHomeGameSpec = describe "setHomeGame" $ do
let m = NewGame $ newGameState & gameType .~ Just HomeGame
let m = NewGame $ newGameState & gameType ?~ HomeGame
context "unexpected mode" $
it "should set the game type" $ let
@@ -124,7 +124,7 @@ setHomeGameSpec = describe "setHomeGame" $ do
setAwayGameSpec :: Spec
setAwayGameSpec = describe "setAwayGame" $ do
let m = NewGame $ newGameState & gameType .~ Just AwayGame
let m = NewGame $ newGameState & gameType ?~ AwayGame
context "unexpected mode" $
it "should set the game type" $ let