From 3aec6b63a8544914f405871c11abcb560b431403 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jan=20Hamal=20Dvo=C5=99=C3=A1k?= <mordae@anilinux.org> Date: Fri, 28 May 2021 00:45:18 +0200 Subject: [PATCH] Fix getReceiptsR MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Remove a left-over query parameter. Signed-off-by: Jan Hamal Dvořák <mordae@anilinux.org> --- src/Pelican/API.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Pelican/API.hs b/src/Pelican/API.hs index ab65f10..0566be1 100644 --- a/src/Pelican/API.hs +++ b/src/Pelican/API.hs @@ -147,7 +147,7 @@ where receipts <- query [sql| select status :: text, ts, updated, reason from history where appid = ? and updated >= ? |] - (appid, since, since) + (appid, since) sendJSON do Array $ fromList [ object [ "status" .= (status :: Text) -- GitLab