implemented year-to-date assist editing

2019-11-01 06:33:51 -04:00
parent 4e9b3f635d
commit 24b304047c
2 changed files with 12 additions and 1 deletions
--- a/src/Mtlstats/Control/EditPlayer.hs
+++ b/src/Mtlstats/Control/EditPlayer.hs
@@ -103,7 +103,12 @@ ytdGoalsC = Controller
  }

 ytdAssistsC :: Controller
-ytdAssistsC = undefined
+ytdAssistsC = Controller
+  { drawController   = drawPrompt editPlayerYtdAssistsPrompt
+  , handleController = \e -> do
+    promptHandler editPlayerYtdAssistsPrompt e
+    return True
+  }

 ytdPMinC :: Controller
 ytdPMinC = undefined