Beginning of implementation of depreciation.

[?]
Mar 22, 2014, 2:42 PM
P6NR2CGXCWAW6GXXSIXCGOBIRAS2BM4LEM6D5ADPN4IL7TMW6UVAC

Dependencies

  • [2] NMWWP4ZN Trying out Hspec
  • [3] NVOCQVAS Initial failing tests.
  • [*] Y35QCWYW Minor improvement in WorkIndex type to eliminate duplicated information.
  • [*] N4NDAZYT Initial implementation of payouts.

Change contents

  • edit in src/Ananke/TimeLog.hs at line 8
    [5.107]
    [3.961]
    , Depreciation(..)
  • edit in src/Ananke/TimeLog.hs at line 11
    [3.987]
    [3.987]
    , linearDepreciation
  • edit in src/Ananke/TimeLog.hs at line 107
    [6.971]
    linearDepreciation :: Depreciation
    linearDepreciation =
    let depf = undefined
    Depreciation depf
  • replacement in test/Ananke/TimeLogSpec.hs at line 22
    [2.381][2.381:413]()
    describe "log reduction" $ do
    [2.381]
    [2.413]
    describe "log reduction to intervals" $ do