Skip to content
Snippets Groups Projects
Commit 392fda8c authored by Ramakrishnan Muthukrishnan's avatar Ramakrishnan Muthukrishnan
Browse files

redeemVoucherHelper: reformat the long type signature

parent 0e906420
No related branches found
No related tags found
1 merge request!26Initial implementation of Persistence using sqlite
Show whitespace changes
Inline Side-by-side
src/PaymentServer/Persistence.hs
+ 6
− 1
View file @ 392fda8c
...@@ -107,7 +107,12 @@ instance VoucherDatabase VoucherDatabaseState where ...@@ -107,7 +107,12 @@ instance VoucherDatabase VoucherDatabaseState where
let insertFn = insertVoucherAndFingerprint conn let insertFn = insertVoucherAndFingerprint conn
redeemVoucherHelper (unpaid, existingFingerprint) voucher fingerprint insertFn 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 = redeemVoucherHelper (unpaid, existingFingerprint) voucher fingerprint insertFn =
case (unpaid, existingFingerprint) of case (unpaid, existingFingerprint) of
(True, _) -> (True, _) ->
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment