diff options
| author | Joris | 2017-11-19 00:20:25 +0100 |
|---|---|---|
| committer | Joris | 2017-11-19 00:20:25 +0100 |
| commit | 7194cddb28656c721342c2ef604f9f9fb0692960 (patch) | |
| tree | 5b8c8562c9a1680aa315b4b7e10a3a7c22900863 /server/src/Job/MonthlyPayment.hs | |
| parent | 42e94a45e26f40edc3ad71b1e77a4bf47c13fd3d (diff) | |
| download | budget-7194cddb28656c721342c2ef604f9f9fb0692960.tar.gz budget-7194cddb28656c721342c2ef604f9f9fb0692960.tar.bz2 budget-7194cddb28656c721342c2ef604f9f9fb0692960.zip | |
Show payment count and partition
- Also fixes exceedingPayer in back by using only punctual payments
Diffstat (limited to 'server/src/Job/MonthlyPayment.hs')
| -rw-r--r-- | server/src/Job/MonthlyPayment.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/server/src/Job/MonthlyPayment.hs b/server/src/Job/MonthlyPayment.hs index 8cb1c27..ca7e007 100644 --- a/server/src/Job/MonthlyPayment.hs +++ b/server/src/Job/MonthlyPayment.hs @@ -8,7 +8,7 @@ import Common.Model (Frequency (..), Payment (..)) import qualified Model.Payment as Payment import qualified Model.Query as Query -import Utils.Time (timeToDay) +import Util.Time (timeToDay) monthlyPayment :: Maybe UTCTime -> IO UTCTime monthlyPayment _ = do |