From 0243029d89bbcb85831b67a27e3316796d69c274 Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 8 Dec 2023 00:45:33 +0100 Subject: [PATCH] start with options --- src-server/Server/Types.hs | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 src-server/Server/Types.hs 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