about summary refs log tree commit diff
path: root/users/glittershark/xanthous/src
diff options
context:
space:
mode:
authorGriffin Smith <grfn@gws.fyi>2020-06-29T14·32-0400
committerglittershark <grfn@gws.fyi>2020-07-03T14·41+0000
commitc0922e49064b1789e3415fbef91ba680ed887882 (patch)
tree9363b7ddc09eb41f95e55a6edf6213d6805fc4f4 /users/glittershark/xanthous/src
parentbeb29128b65f163997881fd4f6a3e06fdd4c3569 (diff)
fix(xan): Remove unused imports r/1188
GHC 8.8 is better at detecting unused imports, it seems - all of these
are new warnings that fail under -Werror

Change-Id: I1357094d715483612deb0db4a75b3e4f8f27d2e3
Reviewed-on: https://cl.tvl.fyi/c/depot/+/889
Reviewed-by: glittershark <grfn@gws.fyi>
Reviewed-by: BuildkiteCI
Tested-by: BuildkiteCI
Diffstat (limited to 'users/glittershark/xanthous/src')
-rw-r--r--users/glittershark/xanthous/src/Xanthous/App/Autocommands.hs1
-rw-r--r--users/glittershark/xanthous/src/Xanthous/App/Prompt.hs2
-rw-r--r--users/glittershark/xanthous/src/Xanthous/Game/Draw.hs10
-rw-r--r--users/glittershark/xanthous/src/Xanthous/Generators.hs1
4 files changed, 2 insertions, 12 deletions
diff --git a/users/glittershark/xanthous/src/Xanthous/App/Autocommands.hs b/users/glittershark/xanthous/src/Xanthous/App/Autocommands.hs
index 35b92bba7289..f393a0e2ea9a 100644
--- a/users/glittershark/xanthous/src/Xanthous/App/Autocommands.hs
+++ b/users/glittershark/xanthous/src/Xanthous/App/Autocommands.hs
@@ -21,7 +21,6 @@ import           Xanthous.Entities.Character (speed)
 import           Xanthous.Entities.Creature (Creature, creatureType)
 import           Xanthous.Entities.RawTypes (hostile)
 import           Xanthous.Game.State
-import           Xanthous.Game.Lenses (characterVisibleEntities)
 --------------------------------------------------------------------------------
 
 autoStep :: Autocommand -> AppM ()
diff --git a/users/glittershark/xanthous/src/Xanthous/App/Prompt.hs b/users/glittershark/xanthous/src/Xanthous/App/Prompt.hs
index 6704a601da90..9b5a3bf24fa7 100644
--- a/users/glittershark/xanthous/src/Xanthous/App/Prompt.hs
+++ b/users/glittershark/xanthous/src/Xanthous/App/Prompt.hs
@@ -17,7 +17,7 @@ import           Brick (BrickEvent(..), Next)
 import           Brick.Widgets.Edit (handleEditorEvent)
 import           Data.Aeson (ToJSON, object)
 import           Graphics.Vty.Input.Events (Event(EvKey), Key(..))
-import           GHC.TypeLits (TypeError, ErrorMessage(..))
+import           GHC.TypeLits (ErrorMessage(..))
 --------------------------------------------------------------------------------
 import           Xanthous.App.Common
 import           Xanthous.Data (move)
diff --git a/users/glittershark/xanthous/src/Xanthous/Game/Draw.hs b/users/glittershark/xanthous/src/Xanthous/Game/Draw.hs
index b9bd8fdc039e..0e1fedc67d19 100644
--- a/users/glittershark/xanthous/src/Xanthous/Game/Draw.hs
+++ b/users/glittershark/xanthous/src/Xanthous/Game/Draw.hs
@@ -18,17 +18,9 @@ import           Xanthous.Game.State
 import           Xanthous.Entities.Character
 import           Xanthous.Entities.Item (Item)
 import           Xanthous.Game
-                 ( GameState(..)
-                 , entities
-                 , revealedPositions
-                 , characterPosition
+                 ( characterPosition
                  , characterVisiblePositions
                  , character
-                 , MessageHistory(..)
-                 , messageHistory
-                 , GamePromptState(..)
-                 , promptState
-                 , debugState, allRevealed
                  )
 import           Xanthous.Game.Prompt
 import           Xanthous.Orphans ()
diff --git a/users/glittershark/xanthous/src/Xanthous/Generators.hs b/users/glittershark/xanthous/src/Xanthous/Generators.hs
index 5bc8bcf03582..2801137b699c 100644
--- a/users/glittershark/xanthous/src/Xanthous/Generators.hs
+++ b/users/glittershark/xanthous/src/Xanthous/Generators.hs
@@ -24,7 +24,6 @@ module Xanthous.Generators
 --------------------------------------------------------------------------------
 import           Xanthous.Prelude
 import           Data.Array.Unboxed
-import           System.Random (RandomGen)
 import qualified Options.Applicative as Opt
 import           Control.Monad.Random
 --------------------------------------------------------------------------------