implemented editGoalieStateL

This commit is contained in:
Jonathan Lamothe committed 2019-11-14 03:07:26 -05:00
1 parent 8aa8d39f70
commit f9849023bc
2 files changed
+35 -1

No files matched your search

+5 -1
View File
@@ -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