From 77b9b2b091278418a53e7aeb8a1a532aca783a83 Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <ram@leastauthority.com>
Date: Wed, 23 Oct 2019 15:35:17 +0530
Subject: [PATCH] hlint suggestion
---
src/PaymentServer/Persistence.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/PaymentServer/Persistence.hs b/src/PaymentServer/Persistence.hs
index e8b4e52..4363000 100644
--- a/src/PaymentServer/Persistence.hs
+++ b/src/PaymentServer/Persistence.hs
@@ -108,7 +108,7 @@ instance VoucherDatabase VoucherDatabaseState where
redeemVoucherHelper (unpaid, existingFingerprint) voucher fingerprint insertFn
redeemVoucherHelper :: (Bool, Maybe Fingerprint) -> Voucher -> Fingerprint -> (Voucher -> Fingerprint -> IO ()) -> IO (Either RedeemError ())
-redeemVoucherHelper (unpaid, existingFingerprint) voucher fingerprint insertFn = do
+redeemVoucherHelper (unpaid, existingFingerprint) voucher fingerprint insertFn =
case (unpaid, existingFingerprint) of
(True, _) ->
return $ Left NotPaid
--
GitLab