implemented editGoalieStateL

2019-11-11 20:00:41 -05:00
parent 8aa8d39f70
commit f9849023bc
2 changed files with 35 additions and 1 deletions
--- a/src/Mtlstats/Types.hs
+++ b/src/Mtlstats/Types.hs
@@ -653,7 +653,11 @@ editPlayerStateL = lens
  (\_ eps -> EditPlayer eps)

 editGoalieStateL :: Lens' ProgMode EditGoalieState
-editGoalieStateL = undefined
+editGoalieStateL = lens
+  (\case
+    EditGoalie egs -> egs
+    _              -> newEditGoalieState)
+  (\_ egs -> EditGoalie egs)

 -- | Constructor for a 'ProgState'
 newProgState :: ProgState