start with options

This commit is contained in:
nek0 2023-12-08 00:45:33 +01:00
parent df666c5175
commit 0243029d89

View file

@ -0,0 +1,15 @@
{-# 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