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

hlint suggestion

parent f0ec4320
No related branches found
No related tags found
1 merge request!26Initial implementation of Persistence using sqlite
Hide whitespace changes
Inline Side-by-side
src/PaymentServer/Persistence.hs
+ 1
− 1
View file @ 77b9b2b0
...@@ -108,7 +108,7 @@ instance VoucherDatabase VoucherDatabaseState where ...@@ -108,7 +108,7 @@ instance VoucherDatabase VoucherDatabaseState where
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 = do redeemVoucherHelper (unpaid, existingFingerprint) voucher fingerprint insertFn =
case (unpaid, existingFingerprint) of case (unpaid, existingFingerprint) of
(True, _) -> (True, _) ->
return $ Left NotPaid return $ Left NotPaid
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment