diff --git a/users/glittershark/xanthous/src/Xanthous/AI/Gormlak.hs b/users/glittershark/xanthous/src/Xanthous/AI/Gormlak.hs
index 8040fea35..a6cc789d6 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 b43711925..a0913780f 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 031815b8f..e2967d274 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 92969ec34..14d02872e 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 5d5e673c5..1f2d21665 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 b4f133324..9bec777de 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