Once you get Haskell to compile, the tests pass!

Dependencies

• [2] 7DBNV3GV Initial, stack-based impl of time log event reduction.
• [3] JUUMYIQE Add groupBy utility function for use in TimeLog.
• [4] EQXRXRZD Changed to use tasty instead of test-framework
• [5] NVOCQVAS Initial failing tests.
• [*] ADMKQQGC Initial empty Snap project.

Change contents

• edit in ananke.cabal at line 28
  [3.299]

  [3.299]
  + bifunctors,
• edit in ananke.cabal at line 47
  [3.808]

  [3.808]
  + containers == 0.5.*,
• edit in src/Ananke/TimeLog.hs at line 13
  [3.1808]

  [2.65]
  + import Data.Bifunctor

  + import Data.Function
• edit in src/Ananke/TimeLog.hs at line 22
  [3.1194]→[3.3:24](∅→∅)
  − import Control.Arrow
• edit in src/Ananke/TimeLog.hs at line 40
  [3.2124]→[3.2124:2201](∅→∅)
  − instance Ord LogEntry where

  − compare a b = compare (logTime a) (logTime b)

  −
• replacement in src/Ananke/TimeLog.hs at line 60
  [2.721]→[2.721:869](∅→∅)
  − pushEntry entry idx = consLeft entry $ findWithDefault ([], []) (btcAddr entry) idx where

  − consLeft a (ex, ix) = (a : ex, ix)
  [2.721]

  [2.869]
  + pushEntry entry = first (entry :) . findWithDefault ([], []) (btcAddr entry)
• edit in test/Test.hs at line 6
  [3.3781]

  [3.3781]
  + import Data.Map.Strict as M
• edit in test/Test.hs at line 8
  [3.3802]

  [3.3802]
  + import Control.Arrow
• replacement in test/Test.hs at line 25
  [3.3956]→[3.3956:4126](∅→∅)
  − testAddrs = catMaybes [ Ananke.btcAddr $ T.pack "123"

  − , Ananke.btcAddr $ T.pack "456"

  − , Ananke.btcAddr $ T.pack "789" ]
  [3.3956]

  [3.4126]
  + testAddrs = catMaybes [ parseBtcAddr $ T.pack "123"

  + , parseBtcAddr $ T.pack "456"

  + , parseBtcAddr $ T.pack "789" ]
• replacement in test/Test.hs at line 38
  [3.4526]→[3.4526:4542](∅→∅)
  − expected = do
  [3.4526]

  [3.4542]
  +

  + testIntervals = do
• replacement in test/Test.hs at line 42
  [3.4600]→[3.2174:2239](∅→∅)
  − maybeToList . fmap (LogInterval addr) $ I.interval start end
  [3.4600]

  [3.4635]
  + return $ LogInterval addr (I.interval start end)

  +

  + expected = M.map (\i -> ([], i)) . fromListWith (++) . fmap (intervalBtcAddr &&& return) $ testIntervals