diff options
Diffstat (limited to 'Settings.hs')
-rw-r--r-- | Settings.hs | 4 |
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" |