Drezil/pioneers
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

tried with WriterT, undid most of it; compiles

Browse Source
This commit is contained in:
Nicole Dresselhaus 2014-06-17 16:37:49 +02:00
parent 13b814fa0a
commit b095907d9b
No known key found for this signature in database
GPG Key ID: BC16D887851A1A80
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Types.hs
View File

@ -10,10 +10,12 @@ import Data.Time (UTCTime)
import Linear.Matrix (M44) import Linear.Matrix (M44)
import Linear (V3) import Linear (V3)
import Control.Monad.RWS.Strict (RWST, liftIO, get) import Control.Monad.RWS.Strict (RWST, liftIO, get)
import Control.Monad.Writer.Strict
import Control.Monad (when) import Control.Monad (when)
import Control.Lens import Control.Lens
import Graphics.Rendering.OpenGL.GL.Texturing.Objects (TextureObject) import Graphics.Rendering.OpenGL.GL.Texturing.Objects (TextureObject)
import Render.Types import Render.Types
import System.IO
import Importer.IQM.Types import Importer.IQM.Types
import UI.UIBase import UI.UIBase
import Map.Types (PlayMap) import Map.Types (PlayMap)
@ -190,6 +192,12 @@ data State = State
, _ui :: !UIState , _ui :: !UIState
} }
data Entry = Log {msg::String} deriving Eq
instance Show Entry where
show (Log s) = s
type Logger = WriterT [Entry] IO Handle
type Pioneers = RWST Env () State IO type Pioneers = RWST Env () State IO