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