Add CPP flags

src/Application.hs

@@ -1,4 +1,5 @@
 {-# OPTIONS_GHC -fno-warn-orphans #-}
+{-# LANGUAGE CPP#-}
 module Application
     ( getApplicationDev
     , appMain
@@ -81,7 +82,9 @@ makeApplication foundation = do
     appPlain <- toWaiAppPlain foundation
 
     let middleware = id -- prometheus def
+#if !DEVELOPMENT
                    . forceSSL' (appSettings foundation)
+#endif
                    . logWare
                    . defaultMiddlewaresNoLogging
 

src/Stackage/Database/Cron.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP#-}
 module Stackage.Database.Cron
     ( stackageServerCron
     , newHoogleLocker
@@ -107,6 +108,7 @@ stackageServerCron = do
           }
     createStackageDatabase dbfp
 
+#if !DEVELOPMENT          
     db <- openStackageDatabase dbfp
 
     do
@@ -139,6 +141,7 @@ stackageServerCron = do
                     let dest = unpack key
                     createDirectoryIfMissing True $ takeDirectory dest
                     renamePath fp dest
+#endif
 
 createHoogleDB :: StackageDatabase -> Manager -> SnapName -> IO (Maybe FilePath)
 createHoogleDB db man name = handleAny (\e -> print e $> Nothing) $ do