From ac3b8e9522a2bef3da71477beacb0faac36a4f2e Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Thu, 14 Nov 2019 02:47:57 -0500
Subject: [PATCH] implemented Mtlstats.Control.EditGoalie.ltLossesC

---
 src/Mtlstats/Control/EditGoalie.hs | 2 +-
 src/Mtlstats/Prompt/EditGoalie.hs  | 5 +++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/Mtlstats/Control/EditGoalie.hs b/src/Mtlstats/Control/EditGoalie.hs
index 9960a18..ae882ca 100644
--- a/src/Mtlstats/Control/EditGoalie.hs
+++ b/src/Mtlstats/Control/EditGoalie.hs
@@ -109,7 +109,7 @@ ltWinsC :: Controller
 ltWinsC = promptController editGoalieLtWinsPrompt
 
 ltLossesC :: Controller
-ltLossesC = undefined
+ltLossesC = promptController editGoalieLtLossesPrompt
 
 ltTiesC :: Controller
 ltTiesC = undefined
diff --git a/src/Mtlstats/Prompt/EditGoalie.hs b/src/Mtlstats/Prompt/EditGoalie.hs
index 23403fb..44f8602 100644
--- a/src/Mtlstats/Prompt/EditGoalie.hs
+++ b/src/Mtlstats/Prompt/EditGoalie.hs
@@ -33,6 +33,7 @@ module Mtlstats.Prompt.EditGoalie
   , editGoalieLtMinsPrompt
   , editGoalieLtGoalsPrompt
   , editGoalieLtWinsPrompt
+  , editGoalieLtLossesPrompt
   ) where
 
 import Control.Monad.Trans.State (modify)
@@ -106,3 +107,7 @@ editGoalieLtGoalsPrompt = numPrompt "Lifetime goals allowed: " $
 editGoalieLtWinsPrompt :: Prompt
 editGoalieLtWinsPrompt = numPrompt "Lifetime wins: " $
   modify . editGoalieLtWins
+
+-- | Prompt to edit a goalie's lifetime losses
+editGoalieLtLossesPrompt :: Prompt
+editGoalieLtLossesPrompt = undefined