about summary refs log tree commit diff
path: root/users/glittershark/xanthous/src/Xanthous/AI/Gormlak.hs
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/glittershark/xanthous/src/Xanthous/AI/Gormlak.hs
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/glittershark/xanthous/src/Xanthous/AI/Gormlak.hs')
-rw-r--r--users/glittershark/xanthous/src/Xanthous/AI/Gormlak.hs2
1 files changed, 1 insertions, 1 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)