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