module FRP.Spice.Config where
import Data.Default
data WindowConfig = WindowConfig { getWindowWidth :: Int
, getWindowHeight :: Int
, getWindowFullscreen :: Bool
, getWindowResizable :: Bool
, getWindowTitle :: String
}
deriving (Eq, Show, Read)
defaultWindowConfig :: WindowConfig
defaultWindowConfig = WindowConfig { getWindowWidth = 640
, getWindowHeight = 480
, getWindowFullscreen = False
, getWindowResizable = False
, getWindowTitle = "Spice Application"
}
instance Default WindowConfig where
def = defaultWindowConfig