Remove unused LogInterval type.

Dependencies

• [2] SCXG6TJW Make log reduction safer in presence of overlapping events.
• [3] FD7SV5I6 Fix handling of event_t columns.
• [4] N4NDAZYT Initial implementation of payouts.
• [5] RSEB2NFG Replacing Snap with Scotty.
• [6] A6HKMINB Attempting to improve JSON handling.
• [7] TJEUE7TY Added OverloadedStrings to eliminate Text fiddling.
• [8] TLQ72DSJ Lenses, sqlite-simple
• [9] 7KZP4RHZ Switch from Data.Time to Data.Thyme
• [10] GKGVYBZG Added JSON serialization to TimeLog
• [11] 7DBNV3GV Initial, stack-based impl of time log event reduction.
• [12] P6NR2CGX Beginning of implementation of depreciation.
• [13] 64C6AWH6 Rename Ananke -> Quixotic, project reboot.
• [14] OBFPJS2G Project successfully builds and tests under nix.
• [15] 2OIPAQCB Merge branch 'master' of github.com:nuttycom/ananke
• [16] NVOCQVAS Initial failing tests.
• [17] Y35QCWYW Minor improvement in WorkIndex type to eliminate duplicated information.
• [18] NMWWP4ZN Trying out Hspec
• [19] 2KZPOGRB Once you get Haskell to compile, the tests pass!
• [20] 7XN3I3QJ Add 'loggedIntervals' endpoint.
• [21] SLL7262C Make depreciation functions more flexible.
• [22] A2J7B4SC Initial impl of depreciation function.
• [23] 5DRIWGLU Improving TimeLog specs
• [24] JV3UEPNC Fix Aeson constructors.

Change contents

• edit in lib/Quixotic/TimeLog.hs at line 7
  [3.3550]→[3.924:944](∅→∅),[3.924]→[3.924:944](∅→∅)
  − , LogInterval(..)
• edit in lib/Quixotic/TimeLog.hs at line 93
  [3.5971]→[3.824:941](∅→∅),[3.2286]→[3.824:941](∅→∅),[3.292]→[3.2286:2287](∅→∅),[3.941]→[3.2286:2287](∅→∅),[3.2286]→[3.2286:2287](∅→∅)
  − data LogInterval = LogInterval

  − { intervalBtcAddr :: BtcAddr

  − , workInterval :: Interval

  − } deriving (Show, Eq)

  −
• edit in lib/Quixotic/TimeLog.hs at line 175
  [3.1131]→[3.322:322](∅→∅)
  −
• replacement in test/Quixotic/TimeLogSpec.hs at line 45
  [3.2263]→[3.2263:2309](∅→∅)
  − let testAddrs = L.fromList $ catMaybes
  [3.2263]

  [3.2309]
  + let testAddrs = catMaybes
• replacement in test/Quixotic/TimeLogSpec.hs at line 50
  [3.4127]→[3.2411:2466](∅→∅)
  − starts = L.fromList $ toThyme <$> catMaybes
  [3.4127]

  [3.2466]
  + starts = toThyme <$> catMaybes
• replacement in test/Quixotic/TimeLogSpec.hs at line 54
  [3.4254]→[3.2569:2624](∅→∅)
  − ends = L.fromList $ toThyme <$> catMaybes
  [3.4254]

  [3.2624]
  + ends = toThyme <$> catMaybes
• replacement in test/Quixotic/TimeLogSpec.hs at line 58
  [3.418]→[3.2974:3022](∅→∅)
  − testIntervals :: NonEmpty LogInterval
  [3.418]

  [2.1422]
  + testIntervals :: [(BtcAddr, Interval)]
• replacement in test/Quixotic/TimeLogSpec.hs at line 61
  [3.1227]→[3.3064:3173](∅→∅)
  − (start', end') <- L.zip starts ends

  − pure $ LogInterval addr (I.interval start' end')
  [3.1227]

  [2.1452]
  + (start', end') <- ClassyPrelude.zip starts ends

  + pure $ (addr, I.interval start' end')
• replacement in test/Quixotic/TimeLogSpec.hs at line 64
  [2.1453]→[2.1453:1499](∅→∅)
  − testLogEntries :: NonEmpty LogEntry
  [2.1453]

  [2.1499]
  + testLogEntries :: [LogEntry]
• replacement in test/Quixotic/TimeLogSpec.hs at line 66
  [2.1529]→[2.1529:1751](∅→∅)
  − (LogInterval addr (Interval start' end')) <- testIntervals

  − L.fromList [ LogEntry addr (WorkEvent StartWork start' Nothing)

  − , LogEntry addr (WorkEvent StopWork end' Nothing) ]
  [2.1529]

  [3.3173]
  + (addr, Interval start' end') <- testIntervals

  + LogEntry addr <$> [WorkEvent StartWork start' Nothing, WorkEvent StopWork end' Nothing]
• replacement in test/Quixotic/TimeLogSpec.hs at line 69
  [3.3174]→[2.1752:1865](∅→∅),[2.1865]→[3.3174:3206](∅→∅),[3.3174]→[3.3174:3206](∅→∅),[3.3206]→[2.1866:1935](∅→∅)
  − expected' = fromListWith (<>) . L.toList $ (intervalBtcAddr &&& pure . workInterval) <$> testIntervals

  − expected :: WorkIndex

  − expected = WorkIndex $ fmap (L.reverse . L.sort) expected'
  [3.3174]

  [3.2824]
  + expected' = fromListWith (<>) $ fmap (second pure) testIntervals

  + expected = WorkIndex $ fmap (L.reverse . L.sort) expected'