about summary refs log tree commit diff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Xanthous/App.hs4
-rw-r--r--src/Xanthous/Util/QuickCheck.hs1
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)
 --------------------------------------------------------------------------------