From 2d57a3f631c70d1aae25dffd265da440b7231519 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Tue, 29 Nov 2022 08:49:08 +0100 Subject: [PATCH] fix(build) --- src/Handler/Utils/Avs.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Utils/Avs.hs b/src/Handler/Utils/Avs.hs index d604e7ed9..b83f16a4e 100644 --- a/src/Handler/Utils/Avs.hs +++ b/src/Handler/Utils/Avs.hs @@ -85,7 +85,7 @@ getLicenceDB uid = do let ulicence = Set.lookupMax $ Set.filter ((userAvsPersonId ==) . avsLicencePersonID) licences return (avsLicenceRampLicence <$> ulicence) -getLicenceByAvsId :: (MonadHandler m, MonadThrow m, MonadReader UniWorX ((->) (HandlerSite m)), HandlerSite m ~ UniWorX) => +getLicenceByAvsId :: (MonadThrow m, MonadHandler m, HandlerSite m ~ UniWorX) => AvsPersonId -> m (Maybe AvsLicence) getLicenceByAvsId aid = do AvsQuery{..} <- maybeThrowM AvsInterfaceUnavailable $ liftHandler $ getsYesod $ view _appAvsQuery