From 392fda8cf70aafa9d5bffabdd1a1a78378593435 Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <ram@leastauthority.com>
Date: Thu, 24 Oct 2019 17:03:19 +0530
Subject: [PATCH] redeemVoucherHelper: reformat the long type signature
---
src/PaymentServer/Persistence.hs | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/src/PaymentServer/Persistence.hs b/src/PaymentServer/Persistence.hs
index 3115e77..963550f 100644
--- a/src/PaymentServer/Persistence.hs
+++ b/src/PaymentServer/Persistence.hs
@@ -107,7 +107,12 @@ instance VoucherDatabase VoucherDatabaseState where
let insertFn = insertVoucherAndFingerprint conn
redeemVoucherHelper (unpaid, existingFingerprint) voucher fingerprint insertFn
-redeemVoucherHelper :: (Bool, Maybe Fingerprint) -> Voucher -> Fingerprint -> (Voucher -> Fingerprint -> IO ()) -> IO (Either RedeemError ())
+redeemVoucherHelper
+ :: (Bool, Maybe Fingerprint)
+ -> Voucher
+ -> Fingerprint
+ -> (Voucher -> Fingerprint -> IO ())
+ -> IO (Either RedeemError ())
redeemVoucherHelper (unpaid, existingFingerprint) voucher fingerprint insertFn =
case (unpaid, existingFingerprint) of
(True, _) ->
--
GitLab