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