Properly ignore redundant interval starts.
[?]
Aug 27, 2020, 11:56 PM
7OTVLW6G7IIAJE2Q4PX53DEXQYY6CPNZJVUJO2ELGGAJKQLXQ7FQCDependencies
- [2]
KNSI575VCleanup of EventLog types. - [3]
SCXG6TJWMake log reduction safer in presence of overlapping events. - [4]
NEDDHXUKReformat via stylish-haskell - [*]
NVOCQVASInitial failing tests.
Change contents
- replacement in lib/Aftok/TimeLog.hs at line 151
combine (e1 @ (StartWork _)) (e2 @ (StartWork _)) = Left $ min e1 e2 -- ignore redundant startscombine (e1 @ (StartWork _)) (e2 @ (StartWork _)) = Left $ max e1 e2 -- ignore redundant starts