From 119cb873eb5628a7de3a9dc0d94bbbcb91bd9938 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Wed, 15 Jan 2020 00:26:46 -0500
Subject: [PATCH] implemented editStandings

---
 src/Mtlstats/Actions.hs |  2 +-
 test/ActionsSpec.hs     | 10 ++++++++++
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/src/Mtlstats/Actions.hs b/src/Mtlstats/Actions.hs
index f621af6..328b160 100644
--- a/src/Mtlstats/Actions.hs
+++ b/src/Mtlstats/Actions.hs
@@ -160,7 +160,7 @@ editSelectedGoalie f s = fromMaybe s $ do
 
 -- | Enters edit standings mode
 editStandings :: ProgState -> ProgState
-editStandings = undefined
+editStandings = progMode .~ EditStandings
 
 -- | Adds the entered player to the roster
 addPlayer :: ProgState -> ProgState
diff --git a/test/ActionsSpec.hs b/test/ActionsSpec.hs
index 24ab67a..54809d8 100644
--- a/test/ActionsSpec.hs
+++ b/test/ActionsSpec.hs
@@ -57,6 +57,7 @@ spec = describe "Mtlstats.Actions" $ do
   editSelectedPlayerSpec
   editGoalieSpec
   editSelectedGoalieSpec
+  editStandingsSpec
   addPlayerSpec
   addGoalieSpec
   resetCreatePlayerStateSpec
@@ -309,6 +310,15 @@ 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