start with options

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