fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(build): add import needed for production only

Browse Source
This commit is contained in:
Steffen Jost 2024-03-13 08:30:54 +01:00
parent dcb947b1fb
commit 724e4a0bec
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Handler/Utils/Avs.hs
View File

@ -673,9 +673,8 @@ data AvsLicenceDifferences = AvsLicenceDifferences
} }
deriving (Show) deriving (Show)
#ifdef DEVELOPMENT #ifndef DEVELOPMENT
-- avsLicenceDifferences2LicenceIds is not used in DEVELOPMENT build -- avsLicenceDifferences2LicenceIds is not used in DEVELOPMENT build
#else
avsLicenceDifferences2LicenceIds :: AvsLicenceDifferences -> Set AvsPersonId avsLicenceDifferences2LicenceIds :: AvsLicenceDifferences -> Set AvsPersonId
avsLicenceDifferences2LicenceIds AvsLicenceDifferences{..} = Set.unions avsLicenceDifferences2LicenceIds AvsLicenceDifferences{..} = Set.unions
[ avsLicenceDiffRevokeAll [ avsLicenceDiffRevokeAll

5
src/Utils/Avs.hs
View File

@ -14,9 +14,10 @@ import qualified Data.Text as Text
import Servant import Servant
import Servant.Client import Servant.Client
#ifdef DEVELOPMENT
#else #ifndef DEVELOPMENT
import Servant.Client.Core (requestPath) import Servant.Client.Core (requestPath)
import UnliftIO.Concurrent (threadDelay)
#endif #endif
import Model.Types.Avs import Model.Types.Avs