implemented Mtlstats.Control.EditGoalie.menuC

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

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