From b27faf2948eb1956cd10f2037f4a8eae48f27150 Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Sun, 9 Dec 2018 11:23:50 -0500 Subject: [PATCH] better menu formattimg --- app/Main.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index 5f6d17f..fb70187 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -74,8 +74,12 @@ changeMasterPass = do quit :: S.StateT Status IO () quit = return () -menu :: String -> [(String, S.StateT Status IO a)] -> S.StateT Status IO a -menu title = reqState . R.prompt title . R.reqMenu . map menuItem +menu + :: String + -> [(String, S.StateT Status IO a)] + -> S.StateT Status IO a +menu title = reqState . R.prompt ("\n*** " ++ title ++ " ***") . + R.reqMenu . map menuItem menuItem :: (String, a) -> (String, R.Request a) menuItem (str, x) = (str, return x)