1 files changed, 7 insertions, 0 deletions

diff --git a/Settings.hs b/Settings.hs
index 63cbd15..d0e16ea 100644
--- a/Settings.hs
+++ b/Settings.hs
@@ -19,6 +19,8 @@ import Yesod.Default.Config2       (applyEnvValue, configSettingsYml)
 import Yesod.Default.Util          (WidgetFileSettings, widgetFileNoReload,
                                     widgetFileReload)
 
+import Thermoprint.Client (BaseUrl(..), Scheme(..), InvalidBaseUrlException, parseBaseUrl)
+
 #ifdef DEVELOPMENT
 #define DEV_BOOL True
 #else
@@ -47,11 +49,14 @@ data AppSettings = AppSettings
     -- ^ Should all log messages be displayed?
     , appReloadTemplates        :: Bool
     -- ^ Use the reload version of templates
+
+    , appThermoprintBase        :: BaseUrl
     }
 
 instance FromJSON AppSettings where
     parseJSON = withObject "AppSettings" $ \o -> do
         let defaultDev = DEV_BOOL
+            parseUrl' = either (fail . show) return . parseBaseUrl
         appStaticDir              <- o .: "static-dir"
         appDatabaseConf           <- o .: "database"
         appHost                   <- fromString <$> o .: "host"
@@ -62,6 +67,8 @@ instance FromJSON AppSettings where
         appShouldLogAll           <- o .:? "should-log-all"   .!= defaultDev
         appReloadTemplates        <- o .:? "reload-templates" .!= defaultDev
 
+        appThermoprintBase        <- parseUrl' =<< o .: "thermoprint-url"
+
         return AppSettings {..}
 
 -- | Settings for 'widgetFile', such as which template languages to support and