wizard-wipeout/src-server/Server/Types.hs

16 lines
344 B
Haskell
Raw Normal View History

2023-12-07 23:45:33 +00:00
{-# LANGUAGE DeriveGeneric #-}
module Server.Options where
import qualified Data.Aeson as Aeson
import GHC.Generics
data Options = Options
{ optSocketPath :: FilePath
, optMapRows :: Int
, optMapColumns :: Int
, optSpawnerProbability :: Float
}
deriving (Show, Generic)
instance Aeson.FromJSON Options