15 lines
344 B
Haskell
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
|