Fix getReceiptsR

Remove a left-over query parameter.

Signed-off-by: Jan Hamal Dvořák <mordae@anilinux.org>

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)