From d56a1cdd46259418faa737b9bb0a9d9ffba442e0 Mon Sep 17 00:00:00 2001 From: Steffen Date: Tue, 16 Apr 2024 17:38:30 +0200 Subject: [PATCH] fix(build): simple type error --- src/Utils/Avs.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Utils/Avs.hs b/src/Utils/Avs.hs index 5f1b6613c..a9bbdfb66 100644 --- a/src/Utils/Avs.hs +++ b/src/Utils/Avs.hs @@ -97,7 +97,7 @@ mkAvsQuery _ _ _ = AvsQuery } #else mkAvsQuery baseUrl basicAuth cliEnv = AvsQuery - { avsQueryPerson = \q -> if q == def then return $ AvsResponsePerson mempty else -- prevent empty queries + { avsQueryPerson = \q -> if q == def then return $ Right $ AvsResponsePerson mempty else -- prevent empty queries liftIO $ catch404toEmpty <$> runClientM (rawQueryPerson q) cliEnv , avsQueryStatus = \q -> liftIO $ runClientM (splitQuery rawQueryStatus q) cliEnv , avsQueryContact = \q -> liftIO $ runClientM (splitQuery rawQueryContact q) cliEnv