From beb29128b65f163997881fd4f6a3e06fdd4c3569 Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Sun, 28 Jun 2020 21:45:34 -0400 Subject: fix(xan): fix compat with new base+ghc A couple of changes necessary to get things working with both ghc 8.8.3 and the new base: - Explicitly import fail from Control.Monad.Fail in the prelude, since it's there instead of the base prelude now - GHC no longer allows type family equality constraints in quantified constraints - which is a bummer - but is avoidable in the one case where it was happening - Explicitly import a constructor from Data.List.NonEmpty Change-Id: Ia06fc724ddc2d6a3f9024c047ed55eea40bcf408 Reviewed-on: https://cl.tvl.fyi/c/depot/+/744 Tested-by: BuildkiteCI Reviewed-by: BuildkiteCI Reviewed-by: Profpatsch --- users/glittershark/xanthous/src/Xanthous/AI/Gormlak.hs | 2 +- users/glittershark/xanthous/src/Xanthous/App.hs | 1 + users/glittershark/xanthous/src/Xanthous/Data.hs | 2 +- users/glittershark/xanthous/src/Xanthous/Entities/Marker.hs | 1 - users/glittershark/xanthous/src/Xanthous/Game/Lenses.hs | 2 +- users/glittershark/xanthous/src/Xanthous/Prelude.hs | 2 ++ 6 files changed, 6 insertions(+), 4 deletions(-) (limited to 'users/glittershark/xanthous') diff --git a/users/glittershark/xanthous/src/Xanthous/AI/Gormlak.hs b/users/glittershark/xanthous/src/Xanthous/AI/Gormlak.hs index 8040fea35b8d..a6cc789d6894 100644 --- a/users/glittershark/xanthous/src/Xanthous/AI/Gormlak.hs +++ b/users/glittershark/xanthous/src/Xanthous/AI/Gormlak.hs @@ -27,7 +27,7 @@ import qualified Xanthous.Entities.RawTypes as Raw import Xanthous.Entities.RawTypes (CreatureType) import Xanthous.Game.State import Xanthous.Game.Lenses - ( Collision(..), entitiesCollision, collisionAt + ( entitiesCollision, collisionAt , character, characterPosition ) import Xanthous.Data.EntityMap.Graphics (linesOfSight, canSee) diff --git a/users/glittershark/xanthous/src/Xanthous/App.hs b/users/glittershark/xanthous/src/Xanthous/App.hs index b43711925c29..a0913780faef 100644 --- a/users/glittershark/xanthous/src/Xanthous/App.hs +++ b/users/glittershark/xanthous/src/Xanthous/App.hs @@ -18,6 +18,7 @@ import qualified Data.Aeson as A import qualified Data.Vector as V import System.Exit import System.Directory (doesFileExist) +import Data.List.NonEmpty (NonEmpty(..)) -------------------------------------------------------------------------------- import Xanthous.App.Common import Xanthous.App.Time diff --git a/users/glittershark/xanthous/src/Xanthous/Data.hs b/users/glittershark/xanthous/src/Xanthous/Data.hs index 031815b8fba4..e2967d274fd5 100644 --- a/users/glittershark/xanthous/src/Xanthous/Data.hs +++ b/users/glittershark/xanthous/src/Xanthous/Data.hs @@ -100,7 +100,7 @@ import Xanthous.Prelude hiding (Left, Down, Right, (.=), elements) import Linear.V2 hiding (_x, _y) import qualified Linear.V2 as L import Linear.V4 hiding (_x, _y) -import Test.QuickCheck (Arbitrary, CoArbitrary, Function, elements) +import Test.QuickCheck (CoArbitrary, Function, elements) import Test.QuickCheck.Arbitrary.Generic import Data.Group import Brick (Location(Location), Edges(..)) diff --git a/users/glittershark/xanthous/src/Xanthous/Entities/Marker.hs b/users/glittershark/xanthous/src/Xanthous/Entities/Marker.hs index 92969ec342a0..14d02872ed4e 100644 --- a/users/glittershark/xanthous/src/Xanthous/Entities/Marker.hs +++ b/users/glittershark/xanthous/src/Xanthous/Entities/Marker.hs @@ -11,7 +11,6 @@ import Brick.Widgets.Core (raw) -------------------------------------------------------------------------------- import Xanthous.Game.State import Xanthous.Data.Entities (EntityAttributes(..)) -import Xanthous.Data.EntityChar (style) -------------------------------------------------------------------------------- -- | Mark on the map - for use in debugging / development only. diff --git a/users/glittershark/xanthous/src/Xanthous/Game/Lenses.hs b/users/glittershark/xanthous/src/Xanthous/Game/Lenses.hs index 5d5e673c5b88..1f2d21665fdb 100644 --- a/users/glittershark/xanthous/src/Xanthous/Game/Lenses.hs +++ b/users/glittershark/xanthous/src/Xanthous/Game/Lenses.hs @@ -111,7 +111,7 @@ characterVisibleEntities game = entitiesCollision :: ( Functor f , forall xx. MonoFoldable (f xx) - , forall xx. Element (f xx) ~ xx + , Element (f SomeEntity) ~ SomeEntity , Element (f (Maybe Collision)) ~ Maybe Collision , Show (f (Maybe Collision)) , Show (f SomeEntity) diff --git a/users/glittershark/xanthous/src/Xanthous/Prelude.hs b/users/glittershark/xanthous/src/Xanthous/Prelude.hs index b4f13332467e..9bec777de7b1 100644 --- a/users/glittershark/xanthous/src/Xanthous/Prelude.hs +++ b/users/glittershark/xanthous/src/Xanthous/Prelude.hs @@ -8,6 +8,7 @@ module Xanthous.Prelude , module Data.Void , module Control.Comonad , module Data.Witherable + , fail , (&!) @@ -27,6 +28,7 @@ import Control.Lens hiding (levels, Level) import Data.Void import Control.Comonad import Data.Witherable +import Control.Monad.Fail (fail) -------------------------------------------------------------------------------- ninsertSet -- cgit 1.4.1