diff options
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 -------------------------------------------------------------------------------- |