moved editStandings to Mtlstats.Actions.EditStandings module

src/Mtlstats/Actions.hs

@@ -36,7 +36,6 @@ module Mtlstats.Actions
   , editSelectedPlayer
   , editGoalie
   , editSelectedGoalie
-  , editStandings
   , addPlayer
   , addGoalie
   , resetCreatePlayerState
@@ -158,10 +157,6 @@ editSelectedGoalie f s = fromMaybe s $ do
     goalies' = modifyNth n f goalies
   Just $ s & database.dbGoalies .~ goalies'
 
--- | Enters edit standings mode
-editStandings :: ProgState -> ProgState
-editStandings = progMode .~ EditStandings
-
 -- | Adds the entered player to the roster
 addPlayer :: ProgState -> ProgState
 addPlayer s = fromMaybe s $ do

src/Mtlstats/Actions/EditStandings.hs

@@ -20,12 +20,19 @@ along with this program.  If not, see <https://www.gnu.org/licenses/>.
 -}
 
 module Mtlstats.Actions.EditStandings
-  ( editHomeStandings
+  ( editStandings
+  , editHomeStandings
   , editRoadStandings
   ) where
 
+import Lens.Micro ((.~))
+
 import Mtlstats.Types
 
+-- | Enters edit standings mode
+editStandings :: ProgState -> ProgState
+editStandings = progMode .~ EditStandings
+
 -- | Edits the home standings
 editHomeStandings :: ProgState -> ProgState
 editHomeStandings = undefined

src/Mtlstats/Menu.hs

@@ -44,6 +44,7 @@ import qualified UI.NCurses as C
 
 import Mtlstats.Actions
 import qualified Mtlstats.Actions.NewGame.GoalieInput as GI
+import Mtlstats.Actions.EditStandings
 import Mtlstats.Config
 import Mtlstats.Types
 import Mtlstats.Types.Menu

test/Actions/EditStandingsSpec.hs

@@ -0,0 +1,43 @@
+{-
+
+mtlstats
+Copyright (C) 1984, 1985, 2019, 2020 Rhéal Lamothe
+<rheal.lamothe@gmail.com>
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or (at
+your option) any later version.
+
+This program is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+-}
+
+{-# LANGUAGE LambdaCase #-}
+
+module Actions.EditStandingsSpec (spec) where
+
+import Lens.Micro ((^.))
+import Test.Hspec (Spec, describe, it, shouldSatisfy)
+
+import Mtlstats.Actions.EditStandings
+import Mtlstats.Types
+
+spec :: Spec
+spec = describe "EditStandings"
+  editStandingsSpec
+
+editStandingsSpec :: Spec
+editStandingsSpec = describe "editStandings" $ let
+  ps  = newProgState
+  ps' = editStandings ps
+  in it "should set progMode to EditStandings" $
+    ps'^.progMode `shouldSatisfy` \case
+      EditStandings -> True
+      _             -> False

test/ActionsSpec.hs

@@ -39,6 +39,7 @@ import Mtlstats.Actions
 import Mtlstats.Types
 
 import qualified Actions.NewGameSpec as NewGame
+import qualified Actions.EditStandingsSpec as EditStandings
 import qualified TypesSpec as TS
 
 spec :: Spec
@@ -57,7 +58,6 @@ spec = describe "Mtlstats.Actions" $ do
   editSelectedPlayerSpec
   editGoalieSpec
   editSelectedGoalieSpec
-  editStandingsSpec
   addPlayerSpec
   addGoalieSpec
   resetCreatePlayerStateSpec
@@ -66,6 +66,7 @@ spec = describe "Mtlstats.Actions" $ do
   scrollUpSpec
   scrollDownSpec
   NewGame.spec
+  EditStandings.spec
 
 startNewSeasonSpec :: Spec
 startNewSeasonSpec = describe "startNewSeason" $ do
@@ -310,15 +311,6 @@ editSelectedGoalieSpec = describe "editSelectedGoalie" $ mapM_
     goalie n       = newGoalie n ("Player " ++ show n)
     goalie' n      = newGoalie n "foo"
 
-editStandingsSpec :: Spec
-editStandingsSpec = describe "editStandings" $ let
-  ps  = newProgState
-  ps' = editStandings ps
-  in it "should set progMode to EditStandings" $
-    ps'^.progMode `shouldSatisfy` \case
-      EditStandings -> True
-      _             -> False
-
 addPlayerSpec :: Spec
 addPlayerSpec = describe "addPlayer" $ do
   let