1 files changed, 7 insertions, 2 deletions

diff --git a/Settings.hs b/Settings.hs
index 8a98c7a..a79f6f8 100644
--- a/Settings.hs
+++ b/Settings.hs
@@ -1,4 +1,3 @@
-{-# Language CPP #-}
 -- | Settings are centralized, as much as possible, into this file. This
 -- includes database connection settings, static file locations, etc.
 -- In addition, you can configure a number of different aspects of Yesod
@@ -19,7 +18,9 @@ import Yesod.Default.Config2       (applyEnvValue, configSettingsYml)
 import Yesod.Default.Util          (WidgetFileSettings, widgetFileNoReload,
                                     widgetFileReload)
 
+#ifdef THERMOPRINT
 import Thermoprint.Client (BaseUrl(..), parseBaseUrl)
+#endif
 
 #ifdef DEVELOPMENT
 #define DEV_BOOL True
@@ -51,13 +52,14 @@ data AppSettings = AppSettings
     , appReloadTemplates        :: Bool
     -- ^ Use the reload version of templates
 
+#ifdef THERMORPINT
     , appThermoprintBase        :: BaseUrl
+#endif
     }
 
 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"
         appRoot'                  <- o .:? "approot"
@@ -73,7 +75,10 @@ instance FromJSON AppSettings where
         appShouldLogAll           <- o .:? "should-log-all"   .!= defaultDev
         appReloadTemplates        <- o .:? "reload-templates" .!= defaultDev
 
+#ifdef THERMOPRINT
+        let parseUrl' = either (fail . show) return . parseBaseUrl
         appThermoprintBase        <- parseUrl' =<< o .: "thermoprint-url"
+#endif
 
         return AppSettings {..}