renamed editPlayer to editPlayerC

This commit is contained in:
Jonathan Lamothe 2019-11-01 03:49:41 -04:00
parent 20ee194035
commit cb4fc77dd6
2 changed files with 4 additions and 4 deletions

View File

@ -71,7 +71,7 @@ dispatch s = case s^.progMode of
| null $ cgs^.cgsNumber -> getGoalieNumC
| null $ cgs^.cgsName -> getGoalieNameC
| otherwise -> confirmCreateGoalieC
EditPlayer eps -> editPlayer eps
EditPlayer eps -> editPlayerC eps
mainMenuC :: Controller
mainMenuC = Controller

View File

@ -19,7 +19,7 @@ along with this program. If not, see <https://www.gnu.org/licenses/>.
-}
module Mtlstats.Control.EditPlayer (editPlayer) where
module Mtlstats.Control.EditPlayer (editPlayerC) where
import Lens.Micro ((^.))
@ -27,8 +27,8 @@ import Mtlstats.Prompt
import Mtlstats.Types
-- | Dispatcher/controller for the player edit mode
editPlayer :: EditPlayerState -> Controller
editPlayer eps
editPlayerC :: EditPlayerState -> Controller
editPlayerC eps
| null $ eps^.epsSelectedPlayer = selectPlayerC
| otherwise = undefined