implemented editStandings

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