From e1f92ce92eb18541437d6bd9902a25607a86f43a Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Mon, 11 Nov 2019 20:47:50 -0500
Subject: [PATCH] implemented Mtlstats.Control.EditGoalie.menuC

---
 src/Mtlstats/Control/EditGoalie.hs |  7 ++++++-
 src/Mtlstats/Menu.hs               | 11 +++++++++++
 2 files changed, 17 insertions(+), 1 deletion(-)

diff --git a/src/Mtlstats/Control/EditGoalie.hs b/src/Mtlstats/Control/EditGoalie.hs
index aecd0db..59a872f 100644
--- a/src/Mtlstats/Control/EditGoalie.hs
+++ b/src/Mtlstats/Control/EditGoalie.hs
@@ -24,7 +24,9 @@ along with this program.  If not, see <https://www.gnu.org/licenses/>.
 module Mtlstats.Control.EditGoalie (editGoalieC) where
 
 import Lens.Micro ((^.))
+import UI.NCurses as C
 
+import Mtlstats.Menu
 import Mtlstats.Prompt
 import Mtlstats.Prompt.EditGoalie
 import Mtlstats.Types
@@ -57,7 +59,7 @@ editC = \case
   EGLtTies    -> ltTiesC
 
 menuC :: Controller
-menuC = undefined
+menuC = menuControllerWith header editGoalieMenu
 
 numberC :: Controller
 numberC = undefined
@@ -100,3 +102,6 @@ ltLossesC = undefined
 
 ltTiesC :: Controller
 ltTiesC = undefined
+
+header :: ProgState -> C.Update ()
+header = undefined
diff --git a/src/Mtlstats/Menu.hs b/src/Mtlstats/Menu.hs
index 6112cd3..1d586c3 100644
--- a/src/Mtlstats/Menu.hs
+++ b/src/Mtlstats/Menu.hs
@@ -22,6 +22,7 @@ along with this program.  If not, see <https://www.gnu.org/licenses/>.
 module Mtlstats.Menu (
   -- * Menu Functions
   menuController,
+  menuControllerWith,
   drawMenu,
   menuHandler,
   -- * Menus
@@ -65,6 +66,16 @@ menuController menu = Controller
     return True
   }
 
+-- | Generate a simple 'Controller' for a 'Menu' with a header
+menuControllerWith
+  :: (ProgState -> C.Update ())
+  -- ^ Generates the header
+  -> Menu ()
+  -- ^ The menu
+  -> Controller
+  -- ^ The resulting controller
+menuControllerWith = undefined
+
 -- | The draw function for a 'Menu'
 drawMenu :: Menu a -> C.Update C.CursorMode
 drawMenu m = do