removed setHomeGame and setAwayGame

made redundant by gameTypeL

test/ActionsSpec.hs

@@ -34,8 +34,6 @@ spec = describe "Mtlstats.Actions" $ do
   startNewSeasonSpec
   startNewGameSpec
   resetYtdSpec
-  setHomeGameSpec
-  setAwayGameSpec
 
 startNewSeasonSpec :: Spec
 startNewSeasonSpec = describe "startNewSeason" $ do
@@ -103,38 +101,6 @@ resetYtdSpec = describe "resetYtd" $
         lt ^. gsTies          `shouldNotBe` 0) $
       s ^. database . dbGoalies
 
-setHomeGameSpec :: Spec
-setHomeGameSpec = describe "setHomeGame" $ do
-  let m = NewGame $ newGameState & gameType ?~ HomeGame
-
-  context "unexpected mode" $
-    it "should set the game type" $ let
-      s = setHomeGame newProgState
-      in s ^. progMode `shouldBe` m
-
-  context "NewGame mode" $
-    it "should set the game type" $ let
-      s = newProgState
-        & progMode .~ NewGame newGameState
-        & setHomeGame
-      in s ^. progMode `shouldBe` m
-
-setAwayGameSpec :: Spec
-setAwayGameSpec = describe "setAwayGame" $ do
-  let m = NewGame $ newGameState & gameType ?~ AwayGame
-
-  context "unexpected mode" $
-    it "should set the game type" $ let
-      s = setAwayGame newProgState
-      in s ^. progMode `shouldBe` m
-
-  context "NewGame mode" $
-    it "should set the game type" $ let
-      s = newProgState
-        & progMode .~ NewGame newGameState
-        & setAwayGame
-      in s ^. progMode `shouldBe` m
-
 makePlayer :: IO Player
 makePlayer = Player
   <$> makeNum