about summary refs log blame commit diff
path: root/src/Xanthous/Game.hs
blob: ffbeddb29d1acb704e0bd6fe24d3375a29aec3c7 (plain) (tree)
1
2
3
4
5
6
7
8
9

                    
            
                     

                  

                       
 
                   



                       
                         


                      

               
 

                  




                    
         
                                                                                


                                 
module Xanthous.Game
  ( GameState(..)
  , entities
  , revealedPositions
  , messageHistory
  , randomGen
  , promptState
  , GamePromptState(..)

  , getInitialState

  , positionedCharacter
  , character
  , characterPosition
  , updateCharacterVision

  , MessageHistory(..)
  , pushMessage
  , popMessage
  , hideMessage

    -- * App monad
  , AppT(..)

    -- * Debug State
  , DebugState(..)
  , debugState
  , allRevealed
  ) where
--------------------------------------------------------------------------------
import Xanthous.Game.State
import Xanthous.Game.Lenses
import Xanthous.Game.Arbitrary ()