changed menu style
...to be closer to the original program's menu style
This commit is contained in:
1 parent
4c7a756c5e
commit
72b6f05700
6 files changed
+96
-96
No files matched your search
@@ -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
|
||||
Reference in new issue
Block a user