haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-12 02:47:33 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add CPP flags

Browse Source
This commit is contained in:
Sibi Prabakaran 2018-08-25 22:13:09 +05:30
parent 62944018d8
commit 9ea91909c2
No known key found for this signature in database
GPG Key ID: D19E3E0EBB557613
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Application.hs
View File

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

3
src/Stackage/Database/Cron.hs
View File

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