implemented goalieToEditPrompt

src/Mtlstats/Prompt/EditGoalie.hs

@@ -21,8 +21,13 @@ along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
 module Mtlstats.Prompt.EditGoalie (goalieToEditPrompt) where
 
+import Control.Monad.Trans.State (modify)
+import Lens.Micro ((.~))
+
+import Mtlstats.Prompt
 import Mtlstats.Types
 
 -- | Prompt to select a 'Goalie' for editing
 goalieToEditPrompt :: Prompt
-goalieToEditPrompt = undefined
+goalieToEditPrompt = selectGoaliePrompt "Goalie to edit: " $
+  modify . (progMode.editGoalieStateL.egsSelectedGoalie .~)

src/Mtlstats/Types.hs

@@ -54,6 +54,7 @@ module Mtlstats.Types (
   createPlayerStateL,
   createGoalieStateL,
   editPlayerStateL,
+  editGoalieStateL,
   -- ** GameState Lenses
   gameYear,
   gameMonth,
@@ -651,6 +652,9 @@ editPlayerStateL = lens
     _              -> newEditPlayerState)
   (\_ eps -> EditPlayer eps)
 
+editGoalieStateL :: Lens' ProgMode EditGoalieState
+editGoalieStateL = undefined
+
 -- | Constructor for a 'ProgState'
 newProgState :: ProgState
 newProgState = ProgState