raycharles/src/Types.hs

module Types where

import Linear
import Graphics.Vty (Vty)

data State = State
  { pos    :: V2 Double
  , rot    :: Double
  , stop   :: Bool
  , output :: String
  , vty    :: Vty
  }