changed menu style
...to be closer to the original program's menu style
This commit is contained in:
@@ -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