From 6238e39f690018388af767f05f60aeea1e5687d2 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Sat, 28 Dec 2019 21:28:44 -0500
Subject: [PATCH] force player/goalie names to correct case when editing

---
 ChangeLog.md                      | 1 +
 src/Mtlstats/Prompt/EditGoalie.hs | 2 +-
 src/Mtlstats/Prompt/EditPlayer.hs | 2 +-
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/ChangeLog.md b/ChangeLog.md
index b3615e7..9287a0e 100644
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -2,6 +2,7 @@
 
 ## current
 - Don't show player number zero in reports
+- Fixed player/goalie name capitalisation on edit
 
 ## 0.9.0
 - Bugfix: Display lifetime stats in report, not YTD
diff --git a/src/Mtlstats/Prompt/EditGoalie.hs b/src/Mtlstats/Prompt/EditGoalie.hs
index fdec636..44ff8a0 100644
--- a/src/Mtlstats/Prompt/EditGoalie.hs
+++ b/src/Mtlstats/Prompt/EditGoalie.hs
@@ -56,7 +56,7 @@ editGoalieNumberPrompt = numPrompt "Goalie number: " $
 
 -- | Prompt to edit a goalie's name
 editGoalieNamePrompt :: Prompt
-editGoalieNamePrompt = strPrompt "Goalie name: " $
+editGoalieNamePrompt = namePrompt "Goalie name: " $
   modify . editGoalieName
 
 -- | Prompt to edit a goalie's YTD games played
diff --git a/src/Mtlstats/Prompt/EditPlayer.hs b/src/Mtlstats/Prompt/EditPlayer.hs
index ff44a79..329d0e1 100644
--- a/src/Mtlstats/Prompt/EditPlayer.hs
+++ b/src/Mtlstats/Prompt/EditPlayer.hs
@@ -46,7 +46,7 @@ editPlayerNumPrompt = numPrompt "Player number: " $
 
 -- | Prompt to edit a player's name
 editPlayerNamePrompt :: Prompt
-editPlayerNamePrompt = strPrompt "Player name: " $
+editPlayerNamePrompt = namePrompt "Player name: " $
   editPlayer . (pName .~)
 
 -- | Prompt to edit a player's position