nuttycom/aftok - Change EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC

WIP moving back to snap.

Created by Kris Nuttycombe on December 2, 2014

EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC

Dependencies

In channels

main

Change contents

Replacement in lib/Quixotic/Database/SQLite.hs at line 1 [5.3612]

B:BD[5.3612] → [6.1092:1148]

{-# LANGUAGE ScopedTypeVariables, OverloadedStrings #-}

[5.3612]

[6.1148]

{-# LANGUAGE ScopedTypeVariables, OverloadedStrings, NoImplicitPrelude #-}

Replacement in lib/Quixotic/Database/SQLite.hs at line 5 [5.3612]
B:BD[5.3664] → [5.3664:3685]
```
import Control.Monad
```
[5.3664]
[5.3685]
```
import ClassyPrelude
```
Deletion in lib/Quixotic/Database/SQLite.hs at line 7 [5.3612]
B:BD[5.3719] → [2.4:34]
∅:D[2.34] → [5.3719:3798]
B:BD[5.3719] → [5.3719:3798]
```
import Data.Maybe (catMaybes)
import qualified Data.Text as T
import Data.Time.Clock
import Data.Time.Format
```
Insertion in lib/Quixotic/Database/SQLite.hs at line 8 [5.3612]
[5.3821]
[5.3821]
Deletion in lib/Quixotic/Database/SQLite.hs at line 12 [5.3612]
B:BD[5.3901] → [6.1150:1191]
```
import System.Locale (defaultTimeLocale)
```

Replacement in lib/Quixotic/Database/SQLite.hs at line 20 [5.3612]

B:BD[5.4160] → [5.4160:4231]

B:BD[5.4231] → [3.1566:1637]

  void $ insertRow h "workEvents" [ ("btcAddr", T.unpack (address ba))
                                  , ("event", T.unpack (eventName ev))

[5.4160]

[5.4291]

  void $ insertRow h "workEvents" [ ("btcAddr", unpack (address ba))
                                  , ("event", unpack (eventName ev))

Replacement in lib/Quixotic/Database/SQLite.hs at line 24 [5.3612]

B:BD[5.4372] → [6.1308:1369]

readWorkIndex :: SQLiteHandle -> EitherT T.Text IO WorkIndex

[5.4372]

[5.4433]

readWorkIndex :: SQLiteHandle -> EitherT Text IO WorkIndex

Replacement in lib/Quixotic/Database/SQLite.hs at line 27 [5.3612]
B:BD[6.1467] → [6.1467:1511]
```
  rows <- bimapEitherT T.pack id baseResult
```
[6.1467]
[2.35]
```
  rows <- bimapEitherT pack id baseResult
```
Replacement in lib/Quixotic/Database/SQLite.hs at line 38 [5.3612]
B:BD[2.349] → [2.349:394]
```
valueAddr (Text t) = parseBtcAddr $ T.pack t
```
[2.349]
[2.394]
```
valueAddr (Text t) = parseBtcAddr $ pack t
```
Insertion in lib/Quixotic/Database.hs at line 1 [5.4936]
[5.4936]
[5.4937]
```
{-# LANGUAGE NoImplicitPrelude #-}
```
Insertion in lib/Quixotic/Interval.hs at line 1 [7.1422]
[7.1422]
[5.5237]
```
{-# LANGUAGE NoImplicitPrelude #-}
```
Insertion in lib/Quixotic/Interval.hs at line 7 [7.1422]
[7.1494]
[7.1494]
```
import ClassyPrelude
```

Replacement in lib/Quixotic/TimeLog.hs at line 1 [8.846]

B:BD[8.846] → [6.1690:1746]

{-# LANGUAGE ScopedTypeVariables, OverloadedStrings #-}

[8.846]

[8.883]

{-# LANGUAGE ScopedTypeVariables, OverloadedStrings, NoImplicitPrelude #-}

Replacement in lib/Quixotic/TimeLog.hs at line 17 [8.846]
B:BD[8.998] → [5.5372:5413]
∅:D[5.5413] → [9.4:52]
B:BD[7.1808] → [9.4:52]
∅:D[9.82] → [10.76:98]
B:BD[7.1808] → [10.76:98]
B:BD[10.98] → [11.2621:2644]
```
import Quixotic
import Quixotic.Interval
import Control.Applicative
import Control.Monad
import Data.Bifunctor
import Data.Function()
```
[8.998]
[12.168]
```
import ClassyPrelude
```
Replacement in lib/Quixotic/TimeLog.hs at line 21 [8.846]
B:BD[13.91] → [13.91:119]
```
import Data.Map.Strict as M
```
[13.91]
[11.2645]
```
import Data.Map.Strict as MS
```
Replacement in lib/Quixotic/TimeLog.hs at line 25 [8.846]
B:BD[9.122] → [9.122:154]
```
import qualified Data.Text as T
```
[9.122]
[8.1224]
```
import Quixotic
import Quixotic.Interval
```
Replacement in lib/Quixotic/TimeLog.hs at line 32 [8.846]
B:BD[5.5415] → [3.1727:1760]
```
eventName :: WorkEvent -> T.Text
```
[5.5415]
[5.5448]
```
eventName :: WorkEvent -> Text
```
Replacement in lib/Quixotic/TimeLog.hs at line 38 [8.846]
B:BD[12.365] → [12.365:406]
```
    t <- jv .: "type" :: A.Parser T.Text
```
[12.365]
[12.406]
```
    t <- jv .: "type" :: A.Parser Text
```

Replacement in lib/Quixotic/TimeLog.hs at line 82 [8.846]

B:BD[14.1052] → [14.1052:1142]

B:BD[14.1142] → [9.155:213]

      (totalTime, keyTimes) = M.mapAccum addIntervalDiff (fromInteger 0) $ M.map snd widx
  in  M.map (\kt -> toRational $ kt / totalTime) keyTimes

[14.1052]

[15.1011]

      (totalTime, keyTimes) = MS.mapAccum addIntervalDiff (fromInteger 0) $ MS.map snd widx
  in  MS.map (\kt -> toRational $ kt / totalTime) keyTimes

Replacement in lib/Quixotic/TimeLog.hs at line 103 [8.846]

B:BD[12.966] → [12.966:1024]

B:BD[12.1024] → [9.214:276]

  let logSum = F.foldl' appendLogEntry M.empty logEntries
  in  M.map (bimap (fmap event) (fmap workInterval)) $ logSum

[12.966]

[13.448]

  let logSum = F.foldl' appendLogEntry MS.empty logEntries
  in  MS.map (bimap (fmap event) (fmap workInterval)) $ logSum

Replacement in lib/Quixotic/TimeLog.hs at line 114 [8.846]

∅:D[14.2318] → [10.120:198]

B:BD[13.721] → [10.120:198]

pushEntry entry = first (entry :) . findWithDefault ([], []) (btcAddr entry)

[14.2318]

[13.869]

pushEntry entry = first (entry :) . MS.findWithDefault ([], []) (btcAddr entry)

Insertion in lib/Quixotic.hs at line 1 [8.2457]
[8.2457]
[5.5553]
```
{-# LANGUAGE NoImplicitPrelude #-}
```
Insertion in lib/Quixotic.hs at line 8 [8.2457]
[8.2516]
[8.2516]
```
import ClassyPrelude
```
Deletion in lib/Quixotic.hs at line 13 [8.2457]
B:BD[12.1787] → [12.1787:1808]
```
import Control.Monad
```

Replacement in quixotic.cabal at line 23 [5.1]

B:BD[5.751] → [16.1:28]

  build-depends:      base

[5.751]

[5.805]

  build-depends:      base                 >= 4     && < 5

Insertion in quixotic.cabal at line 25 [5.1]

[5.838]

                    , classy-prelude       >= 0.10.2

Replacement in quixotic.cabal at line 57 [5.1]

B:BD[4.71] → [4.71:119]

    , base                      >= 4     && < 5

[4.71]

[4.119]

    , base
    , classy-prelude            >= 0.10.2

Insertion in server/Api/WorkLog.hs at line 1 [4.564]
[4.564]
[4.565]
```
{-# LANGUAGE NoImplicitPrelude #-}
```
Insertion in server/Api/WorkLog.hs at line 5 [4.564]
[4.602]
[4.602]
```
import ClassyPrelude
```
Deletion in server/Api/WorkLog.hs at line 28 [4.564]
B:BD[4.1438] → [4.1438:1439]

Replacement in server/Main.hs at line 1 [17.5188]

B:BD[17.5188] → [6.33:89]

{-# LANGUAGE ScopedTypeVariables, OverloadedStrings #-}

[17.5188]

[17.5255]

{-# LANGUAGE ScopedTypeVariables, OverloadedStrings, NoImplicitPrelude #-}

Insertion in server/Main.hs at line 4 [17.5188]
[11.1340]
[17.5259]
```
import ClassyPrelude
```

Replacement in server/Main.hs at line 62 [17.5188]

B:BD[4.2211] → [4.2211:2305]

      buildPayoutsResponse widx = writeBS . encode . PayoutsResponse $ payouts dep ptime widx

[4.2211]

[17.6168]

      buildPayoutsResponse widx = writeBS . A.encode . PayoutsResponse $ payouts dep ptime widx

Replacement in test/Ananke/TimeLogSpec.hs at line 1 [8.3665]

B:BD[8.3665] → [18.2:58]

{-# LANGUAGE OverloadedStrings, ScopedTypeVariables #-}

[8.3665]

[19.148]

{-# LANGUAGE OverloadedStrings, ScopedTypeVariables, NoImplicitPrelude #-}

Insertion in test/Ananke/TimeLogSpec.hs at line 4 [8.3665]
[5.5607]
[14.2656]
```
import ClassyPrelude
```

WIP moving back to snap.

Dependencies

In channels

Change contents

Replacement in lib/Quixotic/Database/SQLite.hs at line 1 [5.3612]

Replacement in lib/Quixotic/Database/SQLite.hs at line 5 [5.3612]

Deletion in lib/Quixotic/Database/SQLite.hs at line 7 [5.3612]

Insertion in lib/Quixotic/Database/SQLite.hs at line 8 [5.3612]

Deletion in lib/Quixotic/Database/SQLite.hs at line 12 [5.3612]

Replacement in lib/Quixotic/Database/SQLite.hs at line 20 [5.3612]

Replacement in lib/Quixotic/Database/SQLite.hs at line 24 [5.3612]

Replacement in lib/Quixotic/Database/SQLite.hs at line 27 [5.3612]

Replacement in lib/Quixotic/Database/SQLite.hs at line 38 [5.3612]

Insertion in lib/Quixotic/Database.hs at line 1 [5.4936]

Insertion in lib/Quixotic/Interval.hs at line 1 [7.1422]

Insertion in lib/Quixotic/Interval.hs at line 7 [7.1422]

Replacement in lib/Quixotic/TimeLog.hs at line 1 [8.846]

Replacement in lib/Quixotic/TimeLog.hs at line 17 [8.846]

Replacement in lib/Quixotic/TimeLog.hs at line 21 [8.846]

Replacement in lib/Quixotic/TimeLog.hs at line 25 [8.846]

Replacement in lib/Quixotic/TimeLog.hs at line 32 [8.846]

Replacement in lib/Quixotic/TimeLog.hs at line 38 [8.846]

Replacement in lib/Quixotic/TimeLog.hs at line 82 [8.846]

Replacement in lib/Quixotic/TimeLog.hs at line 103 [8.846]

Replacement in lib/Quixotic/TimeLog.hs at line 114 [8.846]

Insertion in lib/Quixotic.hs at line 1 [8.2457]

Insertion in lib/Quixotic.hs at line 8 [8.2457]

Deletion in lib/Quixotic.hs at line 13 [8.2457]

Replacement in quixotic.cabal at line 23 [5.1]

Insertion in quixotic.cabal at line 25 [5.1]

Replacement in quixotic.cabal at line 57 [5.1]

Insertion in server/Api/WorkLog.hs at line 1 [4.564]

Insertion in server/Api/WorkLog.hs at line 5 [4.564]

Deletion in server/Api/WorkLog.hs at line 28 [4.564]

Replacement in server/Main.hs at line 1 [17.5188]

Insertion in server/Main.hs at line 4 [17.5188]

Replacement in server/Main.hs at line 62 [17.5188]

Replacement in test/Ananke/TimeLogSpec.hs at line 1 [8.3665]

Insertion in test/Ananke/TimeLogSpec.hs at line 4 [8.3665]