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)