wizard-wipeout/src-server/Server/Types.hs
2023-12-08 00:45:33 +01:00

15 lines
344 B
Haskell

{-# 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