diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Xanthous/App.hs | 4 | ||||
| -rw-r--r-- | src/Xanthous/Util/QuickCheck.hs | 1 |
2 files changed, 2 insertions, 3 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 diff --git a/src/Xanthous/Util/QuickCheck.hs b/src/Xanthous/Util/QuickCheck.hs index ba04f9ffb28f..be12bc294513 100644 --- a/src/Xanthous/Util/QuickCheck.hs +++ b/src/Xanthous/Util/QuickCheck.hs @@ -14,7 +14,6 @@ import Test.QuickCheck.Function import Test.QuickCheck.Instances.ByteString () import Test.QuickCheck.Arbitrary.Generic import Data.Aeson -import Data.Coerce import GHC.Generics (Rep) -------------------------------------------------------------------------------- |