From 0b22bb099c9f2254d16784e5897b18e9e410c2fa Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Sat, 30 Nov 2019 18:16:48 -0500 Subject: Fail on all warnings in CI All the undefineds are gone, so it's time to enable -Werror in CI. --- src/Xanthous/App.hs | 4 ++-- src/Xanthous/Util/QuickCheck.hs | 1 - 2 files changed, 2 insertions(+), 3 deletions(-) (limited to 'src') 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) -------------------------------------------------------------------------------- -- cgit 1.4.1