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