chandlr-server/app/JSONSettings.hs

module JSONSettings where

import GHC.Generics
import Data.Aeson (FromJSON)

data JSONSettings = JSONSettings
    { postgrest_url :: String
    , jwt :: String
    , postgrest_fetch_count :: Int
    , media_root :: String
    , static_serve_path :: String
    , static_serve_url_root :: String
    } deriving (Show, Generic)

instance FromJSON JSONSettings