changed menu style

...to be closer to the original program's menu style
This commit is contained in:
Jonathan Lamothe
2020-01-22 20:59:09 -05:00
parent 4c7a756c5e
commit 72b6f05700
6 changed files with 96 additions and 96 deletions
+2 -2
View File
@@ -65,8 +65,8 @@ makeLenses ''Menu
makeLenses ''MenuItem
instance Show (Menu a) where
show m = m ^. menuTitle ++ "\n" ++ items
show m = m ^. menuTitle ++ "\n\n" ++ items
where items = unlines $ map show $ m ^. menuItems
instance Show (MenuItem a) where
show i = [i ^. miKey] ++ ") " ++ i ^. miDescription
show i = [i ^. miKey] ++ ": " ++ i ^. miDescription