From 724e4a0bec343ab9c6d172d8e93b8040bbe3fe7d Mon Sep 17 00:00:00 2001 From: Steffen Date: Wed, 13 Mar 2024 08:30:54 +0100 Subject: [PATCH] fix(build): add import needed for production only --- src/Handler/Utils/Avs.hs | 3 +-- src/Utils/Avs.hs | 5 +++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Handler/Utils/Avs.hs b/src/Handler/Utils/Avs.hs index 9c1d5cccc..a9ebd401d 100644 --- a/src/Handler/Utils/Avs.hs +++ b/src/Handler/Utils/Avs.hs @@ -673,9 +673,8 @@ data AvsLicenceDifferences = AvsLicenceDifferences } deriving (Show) -#ifdef DEVELOPMENT +#ifndef DEVELOPMENT -- avsLicenceDifferences2LicenceIds is not used in DEVELOPMENT build -#else avsLicenceDifferences2LicenceIds :: AvsLicenceDifferences -> Set AvsPersonId avsLicenceDifferences2LicenceIds AvsLicenceDifferences{..} = Set.unions [ avsLicenceDiffRevokeAll diff --git a/src/Utils/Avs.hs b/src/Utils/Avs.hs index 53360fb4c..cb6e843ce 100644 --- a/src/Utils/Avs.hs +++ b/src/Utils/Avs.hs @@ -14,9 +14,10 @@ import qualified Data.Text as Text import Servant import Servant.Client -#ifdef DEVELOPMENT -#else + +#ifndef DEVELOPMENT import Servant.Client.Core (requestPath) +import UnliftIO.Concurrent (threadDelay) #endif import Model.Types.Avs