about summary refs log tree commit diff
path: root/users
diff options
context:
space:
mode:
authorGriffin Smith <grfn@gws.fyi>2020-06-29T01·45-0400
committerglittershark <grfn@gws.fyi>2020-07-03T14·41+0000
commitbeb29128b65f163997881fd4f6a3e06fdd4c3569 (patch)
tree3ccf6a76459979c68e368b10efbdd24548d34ffe /users
parent96fa6c465b434de3cd6b1fb7dc03a16e9376638c (diff)
fix(xan): fix compat with new base+ghc r/1187
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 <mail@profpatsch.de>
Diffstat (limited to 'users')
-rw-r--r--users/glittershark/xanthous/src/Xanthous/AI/Gormlak.hs2
-rw-r--r--users/glittershark/xanthous/src/Xanthous/App.hs1
-rw-r--r--users/glittershark/xanthous/src/Xanthous/Data.hs2
-rw-r--r--users/glittershark/xanthous/src/Xanthous/Entities/Marker.hs1
-rw-r--r--users/glittershark/xanthous/src/Xanthous/Game/Lenses.hs2
-rw-r--r--users/glittershark/xanthous/src/Xanthous/Prelude.hs2
6 files changed, 6 insertions, 4 deletions
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