diff --git a/src-server/Server/Types.hs b/src-server/Server/Types.hs new file mode 100644 index 0000000..ce3c34e --- /dev/null +++ b/src-server/Server/Types.hs @@ -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