about summary refs log tree commit diff
path: root/src/Xanthous/Game/Env.hs
blob: 6e10d0f73581188a3593c06066736ea161a9541f (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
{-# LANGUAGE TemplateHaskell #-}
--------------------------------------------------------------------------------
module Xanthous.Game.Env
  ( GameEnv(..)
  , eventChan
  ) where
--------------------------------------------------------------------------------
import Xanthous.Prelude
--------------------------------------------------------------------------------
import Brick.BChan (BChan)
import Xanthous.Data.App (AppEvent)
--------------------------------------------------------------------------------

data GameEnv = GameEnv
  { _eventChan :: BChan AppEvent
  }
  deriving stock (Generic)
makeLenses ''GameEnv
{-# ANN GameEnv ("HLint: ignore Use newtype instead of data" :: String) #-}