16 lines
357 B
Haskell
16 lines
357 B
Haskell
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
|