diff --git a/src/Control/Buy.hs b/src/Control/Buy.hs index b752f0a..7141844 100644 --- a/src/Control/Buy.hs +++ b/src/Control/Buy.hs @@ -49,7 +49,7 @@ buy auth pds = do else PurchaseOK ) missing - userNotify auth result + userNotify auth real result return result Nothing -> do void $ insertNewJournalEntry