diff --git a/src/Mtlstats/Control/EditGoalie.hs b/src/Mtlstats/Control/EditGoalie.hs index ae882ca..094ac09 100644 --- a/src/Mtlstats/Control/EditGoalie.hs +++ b/src/Mtlstats/Control/EditGoalie.hs @@ -112,7 +112,7 @@ ltLossesC :: Controller ltLossesC = promptController editGoalieLtLossesPrompt ltTiesC :: Controller -ltTiesC = undefined +ltTiesC = promptController editGoalieLtTiesPrompt header :: ProgState -> C.Update () header s = C.drawString $ fromMaybe "" $ do diff --git a/src/Mtlstats/Prompt/EditGoalie.hs b/src/Mtlstats/Prompt/EditGoalie.hs index 843e63e..7d69d1e 100644 --- a/src/Mtlstats/Prompt/EditGoalie.hs +++ b/src/Mtlstats/Prompt/EditGoalie.hs @@ -34,6 +34,7 @@ module Mtlstats.Prompt.EditGoalie , editGoalieLtGoalsPrompt , editGoalieLtWinsPrompt , editGoalieLtLossesPrompt + , editGoalieLtTiesPrompt ) where import Control.Monad.Trans.State (modify) @@ -112,3 +113,7 @@ editGoalieLtWinsPrompt = numPrompt "Lifetime wins: " $ editGoalieLtLossesPrompt :: Prompt editGoalieLtLossesPrompt = numPrompt "Lifetime losses: " $ modify . editGoalieLtLosses + +-- | Prompt to edit a goalie's lifetime ties +editGoalieLtTiesPrompt :: Prompt +editGoalieLtTiesPrompt = undefined