nuttycom/aftok - Change SLL7262CJUE7TZDDZZXFROHCVVDA527WA4PHXCKEGZUJF2EN5MQAC

Make depreciation functions more flexible.

There's no real need for a newtype here; a type synonym works just as well.

Created by Kris Nuttycombe on January 17, 2015

SLL7262CJUE7TZDDZZXFROHCVVDA527WA4PHXCKEGZUJF2EN5MQAC

Dependencies

In channels

main

Change contents

Replacement in lib/Quixotic/TimeLog.hs at line 16 [5.846]
∅:D[3.3635] → [4.3:24]
B:BD[6.107] → [4.3:24]
```
  , Depreciation(..)
```
[3.3635]
[7.5326]
```
  , DepF
```
Insertion in lib/Quixotic/TimeLog.hs at line 62 [5.846]
[5.2287]
[2.337]
```
type Payouts = Map BtcAddr Rational
```
Deletion in lib/Quixotic/TimeLog.hs at line 64 [5.846]
∅:D[2.377] → [8.123:159]
∅:D[6.849] → [8.123:159]
B:BD[9.350] → [8.123:159]
B:BD[8.159] → [10.61:88]
```
type Payouts = Map BtcAddr Rational
type NDT = NominalDiffTime
```
Insertion in lib/Quixotic/TimeLog.hs at line 65 [5.846]
[2.434]
[9.350]
```
type NDT = NominalDiffTime
```

Replacement in lib/Quixotic/TimeLog.hs at line 72 [5.846]

B:BD[10.278] → [10.278:343]

newtype Depreciation = Depreciation { depf :: NDT -> Rational }

[10.278]

[5.2353]

type DepF = UTCTime -> Interval -> NDT

Replacement in lib/Quixotic/TimeLog.hs at line 79 [5.846]

B:BD[10.529] → [10.529:588]

payouts :: Depreciation -> UTCTime -> WorkIndex -> Payouts

[10.529]

[6.850]

payouts :: DepF -> UTCTime -> WorkIndex -> Payouts

Replacement in lib/Quixotic/TimeLog.hs at line 90 [5.846]

B:BD[10.1022] → [6.1373:1561]

∅:D[10.1223] → [8.599:600]

∅:D[6.1561] → [8.599:600]

B:BD[8.599] → [8.599:600]

B:BD[8.600] → [6.1562:1892]

workCredit :: (Functor f, Foldable f) => Depreciation -> UTCTime -> f Interval -> NDT
workCredit dep ptime ivals = F.foldl' (+) (fromInteger 0) $ fmap (depreciateInterval dep ptime) ivals
{-|
  Compute the depreciated difftime for a single Interval value.
-}
depreciateInterval :: Depreciation -> UTCTime -> Interval -> NDT
depreciateInterval dep ptime ival = 
  let depreciation :: Rational
      depreciation = depf dep $ diffUTCTime ptime (end $ ival)
  in  fromRational $ depreciation * (toRational . ilen $ ival)

[10.1022]

[10.1581]

workCredit :: (Functor f, Foldable f) => DepF -> UTCTime -> f Interval -> NDT
workCredit depf ptime ivals = 
  F.foldl' (+) (fromInteger 0) $ fmap (depf ptime) ivals

Replacement in lib/Quixotic/TimeLog.hs at line 119 [5.846]

B:BD[11.162] → [11.162:261]

linearDepreciation :: Months -> Months -> Depreciation
linearDepreciation undepPeriod depPeriod =

[11.162]

[11.261]

linearDepreciation :: Months -> Months -> DepF
linearDepreciation undepPeriod depPeriod = \ptime ival ->

Replacement in lib/Quixotic/TimeLog.hs at line 127 [5.846]

B:BD[8.971] → [13.2917:3011]

∅:D[13.3011] → [12.482:497]

B:BD[12.482] → [12.482:497]

      depf' :: NominalDiffTime -> Rational
      depf' dt = if dt < monthsLength undepPeriod 
        then 1

[8.971]

[12.497]

      depPct :: NominalDiffTime -> Rational
      depPct dt = 
        if dt < monthsLength undepPeriod then 1

Replacement in lib/Quixotic/TimeLog.hs at line 131 [5.846]

B:BD[12.586] → [13.3012:3036]

  in Depreciation depf'

[12.586]


      depreciation = depPct $ diffUTCTime ptime (end $ ival)
  in  fromRational $ depreciation * (toRational . ilen $ ival)