Properly ignore redundant interval starts.

[?]
Aug 27, 2020, 11:56 PM
7OTVLW6G7IIAJE2Q4PX53DEXQYY6CPNZJVUJO2ELGGAJKQLXQ7FQC

Dependencies

  • [2] KNSI575V Cleanup of EventLog types.
  • [3] SCXG6TJW Make log reduction safer in presence of overlapping events.
  • [4] NEDDHXUK Reformat via stylish-haskell
  • [*] NVOCQVAS Initial failing tests.

Change contents

  • replacement in lib/Aftok/TimeLog.hs at line 151
    [2.2286][2.2286:2388]()
    combine (e1 @ (StartWork _)) (e2 @ (StartWork _)) = Left $ min e1 e2 -- ignore redundant starts
    [2.2286]
    [2.2388]
    combine (e1 @ (StartWork _)) (e2 @ (StartWork _)) = Left $ max e1 e2 -- ignore redundant starts