Restored the single test to functionality.

Dependencies

• [2] OBFPJS2G Project successfully builds and tests under nix.
• [3] P6NR2CGX Beginning of implementation of depreciation.
• [4] EQXRXRZD Changed to use tasty instead of test-framework
• [5] GKGVYBZG Added JSON serialization to TimeLog
• [6] RSEB2NFG Replacing Snap with Scotty.
• [7] NVOCQVAS Initial failing tests.
• [8] 2KZPOGRB Once you get Haskell to compile, the tests pass!
• [9] Y35QCWYW Minor improvement in WorkIndex type to eliminate duplicated information.
• [10] NMWWP4ZN Trying out Hspec

Change contents

• edit in test/Quixotic/TimeLogSpec.hs at line 12
  [3.3063]→[3.1915:1933](∅→∅),[3.312]→[3.1915:1933](∅→∅)
  − import Data.Aeson
• edit in test/Quixotic/TimeLogSpec.hs at line 17
  [3.381]→[3.1934:2091](∅→∅),[3.2091]→[2.3762:3848](∅→∅),[2.3848]→[3.2165:2217](∅→∅),[3.2165]→[3.2165:2217](∅→∅)
  − describe "work event parsing" $ do

  − it "parses a start event" $ do

  − let startText = "{\"type\":\"start\", \"timestamp\":\"2014-03-22T11:37:08Z\"}"

  − expected = fmap (WorkEvent StartWork) $ parseISO8601 "2014-03-22T11:37:08Z"

  − (decode startText) `shouldBe` expected

  −
• replacement in test/Quixotic/TimeLogSpec.hs at line 42
  [3.1396]→[3.1396:1514](∅→∅)
  − expected0 = M.map (const [] &&& id) . fromListWith (++) . fmap (intervalBtcAddr &&& return) $ testIntervals
  [3.1396]

  [3.493]
  + expected0 = fmap (const [] &&& id) . fromListWith (++) . fmap (intervalBtcAddr &&& return) $ testIntervals
• replacement in test/Quixotic/TimeLogSpec.hs at line 45
  [3.1547]→[2.3950:4029](∅→∅)
  − expected = M.map (bimap (fmap _event) (fmap workInterval)) expected0
  [3.1547]

  [3.4635]
  + expected = fmap (fmap workInterval . snd) expected0