summaryrefslogtreecommitdiff
path: root/Settings.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Settings.hs')
-rw-r--r--Settings.hs4
1 files changed, 0 insertions, 4 deletions
diff --git a/Settings.hs b/Settings.hs
index 76aa2f3..63cbd15 100644
--- a/Settings.hs
+++ b/Settings.hs
@@ -33,9 +33,6 @@ data AppSettings = AppSettings
33 -- ^ Directory from which to serve static files. 33 -- ^ Directory from which to serve static files.
34 , appDatabaseConf :: PostgresConf 34 , appDatabaseConf :: PostgresConf
35 -- ^ Configuration settings for accessing the database. 35 -- ^ Configuration settings for accessing the database.
36 , appRoot :: Maybe Text
37 -- ^ Base for all generated URLs. If @Nothing@, determined
38 -- from the request headers.
39 , appHost :: HostPreference 36 , appHost :: HostPreference
40 -- ^ Host/interface the server should bind to. 37 -- ^ Host/interface the server should bind to.
41 , appPort :: Int 38 , appPort :: Int
@@ -57,7 +54,6 @@ instance FromJSON AppSettings where
57 let defaultDev = DEV_BOOL 54 let defaultDev = DEV_BOOL
58 appStaticDir <- o .: "static-dir" 55 appStaticDir <- o .: "static-dir"
59 appDatabaseConf <- o .: "database" 56 appDatabaseConf <- o .: "database"
60 appRoot <- o .:? "approot"
61 appHost <- fromString <$> o .: "host" 57 appHost <- fromString <$> o .: "host"
62 appPort <- o .: "port" 58 appPort <- o .: "port"
63 appIpFromHeader <- o .: "ip-from-header" 59 appIpFromHeader <- o .: "ip-from-header"