diff options
Diffstat (limited to 'src/Xanthous/App.hs')
| -rw-r--r-- | src/Xanthous/App.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Xanthous/App.hs b/src/Xanthous/App.hs index 76e03e860999..b8cda3b77721 100644 --- a/src/Xanthous/App.hs +++ b/src/Xanthous/App.hs @@ -411,5 +411,5 @@ entityMenu_ = mkMenuItems @[_] . map entityMenuItem then ec else 'a' -entityMenu :: Entity entity => [entity] -> Map Char (MenuOption entity) -entityMenu = map (map runIdentity) . entityMenu_ . fmap Identity +-- entityMenu :: Entity entity => [entity] -> Map Char (MenuOption entity) +-- entityMenu = map (map runIdentity) . entityMenu_ . fmap Identity |