nuttycom/aftok - Change NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC

Reformat via stylish-haskell

Created by Kris Nuttycombe on March 3, 2016

NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC

Dependencies

In channels

main

Change contents

Replacement in lib/Aftok/Auction.hs at line 5 [6.5084]

B:BD[6.5192] → [6.5192:5213]

B:BD[6.5213] → [7.96:116]

B:BD[8.21] → [8.21:43]

B:BD[8.43] → [9.3:20]

B:BD[9.20] → [10.1616:1645]

import ClassyPrelude
import Control.Lens
import Data.Hourglass
import Data.UUID
import Data.Thyme.Clock as C

[6.5192]

[11.26]

import           ClassyPrelude
import           Control.Lens
import           Data.Hourglass
import           Data.Thyme.Clock as C
import           Data.UUID

Replacement in lib/Aftok/Auction.hs at line 11 [6.5084]
B:BD[11.27] → [12.762:775]
B:BD[12.775] → [4.246:265]
```
import Aftok
import Aftok.Types
```
[11.27]
[6.5213]
```
import           Aftok
import           Aftok.Types
```
Replacement in lib/Aftok/Auction.hs at line 17 [6.5084]
B:BD[6.5249] → [6.5249:5273]
```
data Auction = Auction 
```
[6.5249]
[13.266]
```
data Auction = Auction
```
Replacement in lib/Aftok/Auction.hs at line 19 [6.5084]
∅:D[13.294] → [10.1646:1676]
∅:D[4.294] → [10.1646:1676]
B:BD[7.141] → [10.1646:1676]
```
  , _auctionEnd :: C.UTCTime 
```
[13.294]
[6.5319]
```
  , _auctionEnd  :: C.UTCTime
```
Replacement in lib/Aftok/Auction.hs at line 35 [6.5084]
B:BD[8.146] → [8.146:162]
```
  (<=) b1 b2 = 
```
[8.146]
[8.162]
```
  (<=) b1 b2 =
```
Replacement in lib/Aftok/Auction.hs at line 37 [6.5084]
B:BD[8.195] → [7.277:288]
```
    where 
```
[8.195]
[14.193]
```
    where
```
Replacement in lib/Aftok/Auction.hs at line 44 [6.5084]
B:BD[8.369] → [8.369:397]
```
winningBids auction bids = 
```
[8.369]
[13.323]
```
winningBids auction bids =
```

Replacement in lib/Aftok/Auction.hs at line 48 [6.5084]

B:BD[8.538] → [11.100:165]

        | total + (x ^. bidAmount) < (auction ^. raiseAmount) =

[8.538]

[15.3]

        | total + (x ^. bidAmount) < (auction ^. raiseAmount) =

Replacement in lib/Aftok/Auction.hs at line 52 [6.5084]

B:BD[8.727] → [11.228:274]

        | total < (auction ^. raiseAmount) =

[8.727]

[11.274]

        | total < (auction ^. raiseAmount) =

Replacement in lib/Aftok/Auction.hs at line 60 [6.5084]
B:BD[8.1106] → [8.1106:1115]
```
        
```
[8.1106]
[8.1115]

Replacement in lib/Aftok/Client.hs at line 1 [16.1]

B:BD[16.1] → [16.2:77]

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

[16.1]

[16.77]

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

Replacement in lib/Aftok/Client.hs at line 7 [16.1]
B:BD[16.108] → [16.108:130]
```
import ClassyPrelude 
```
[16.108]
[16.130]
```
import           ClassyPrelude
```

Replacement in lib/Aftok/Client.hs at line 9 [16.1]

B:BD[16.131] → [16.131:151]

B:BD[16.151] → [17.3:27]

∅:D[17.27] → [18.3:43]

B:BD[16.151] → [18.3:43]

import Control.Lens
import Data.Aeson.Types
import qualified Data.Configurator as C

[16.131]

[18.43]

import           Control.Lens
import           Data.Aeson.Types
import qualified Data.Configurator       as C

Replacement in lib/Aftok/Client.hs at line 13 [16.1]
∅:D[18.90] → [16.151:171]
B:BD[16.151] → [16.151:171]
```
import Network.Wreq
```
[18.90]
[16.171]
```
import           Network.Wreq
```
Replacement in lib/Aftok/Client.hs at line 15 [16.1]
B:BD[16.172] → [12.838:877]
```
import Aftok.Json
import Aftok.TimeLog
```
[16.172]
[16.217]
```
import           Aftok.Json
import           Aftok.TimeLog
```
Replacement in lib/Aftok/Client.hs at line 23 [16.1]
B:BD[18.152] → [18.152:173]
B:BD[18.173] → [12.902:943]
```
parseQCConfig cfg = 
  QCConfig <$> C.require cfg "aftokUrl" 
```
[18.152]
[16.298]
```
parseQCConfig cfg =
  QCConfig <$> C.require cfg "aftokUrl"
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 1 [11.456]

B:BD[11.456] → [19.73:124]

{-# LANGUAGE GADTs, GeneralizedNewtypeDeriving #-}

[11.456]

[11.565]

{-# LANGUAGE GADTs                      #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 6 [11.456]

B:BD[11.672] → [11.672:713]

B:BD[11.713] → [19.176:202]

∅:D[19.202] → [20.73:117]

B:BD[11.713] → [20.73:117]

B:BD[20.117] → [10.1767:1801]

B:BD[11.731] → [20.118:140]

∅:D[20.140] → [11.731:753]

B:BD[11.731] → [11.731:753]

B:BD[11.753] → [21.4:56]

B:BD[21.56] → [20.141:164]

∅:D[20.164] → [11.786:820]

B:BD[11.786] → [11.786:820]

B:BD[11.862] → [11.862:906]

B:BD[11.946] → [11.946:988]

import ClassyPrelude
import Control.Lens
import Data.Aeson(toJSON)
import qualified Data.ByteString.Char8 as B
import Control.Monad.Trans.Either
import Data.List as L
import Data.Hourglass
import Data.Thyme.Clock as C
import Data.Thyme.Time
import Data.UUID(UUID)
import Database.PostgreSQL.Simple
import Database.PostgreSQL.Simple.FromField
import Database.PostgreSQL.Simple.FromRow

[11.623]

[11.1011]

import           ClassyPrelude
import           Control.Lens
import           Control.Monad.Trans.Either
import           Data.Aeson                           (toJSON)
import qualified Data.ByteString.Char8                as B
import           Data.Hourglass
import           Data.List                            as L
import           Data.Thyme.Clock                     as C
import           Data.Thyme.Time
import           Data.UUID                            (UUID)
import           Database.PostgreSQL.Simple
import           Database.PostgreSQL.Simple.FromField
import           Database.PostgreSQL.Simple.FromRow

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 20 [11.456]

B:BD[11.1012] → [12.1102:1201]

B:BD[12.1201] → [13.457:476]

import Aftok
import Aftok.Auction
import Aftok.Database
import Aftok.Interval
import Aftok.TimeLog
import Aftok.Types

[11.1012]

[22.1123]

import           Aftok
import           Aftok.Auction
import           Aftok.Database
import           Aftok.Interval
import           Aftok.TimeLog
import           Aftok.Types

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 39 [11.456]
B:BD[23.48] → [23.48:62]
B:BD[23.62] → [24.95:113]
```
  case tn of 
    "event_t" -> 
```
[23.48]
[24.113]
```
  case tn of
    "event_t" ->
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 42 [11.456]

B:BD[24.158] → [24.158:203]

                               (tableOid f)

[24.158]

[24.203]

                               (tableOid f)

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 47 [11.456]
B:BD[24.469] → [24.469:479]
```
    _ -> 
```
[24.469]
[24.479]
```
    _ ->
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 49 [11.456]

B:BD[24.522] → [24.522:565]

                             (tableOid f)

[24.522]

[24.565]

                             (tableOid f)

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 77 [11.456]
B:BD[21.93] → [21.93:136]
```
utcParser f v = toThyme <$> fromField f v 
```
[21.93]
[25.271]
```
utcParser f v = toThyme <$> fromField f v
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 80 [11.456]

B:BD[20.278] → [20.278:336]

logEntryParser = 
  LogEntry <$> fieldWith btcAddrParser

[20.278]

[20.336]

logEntryParser =
  LogEntry <$> fieldWith btcAddrParser

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 86 [11.456]
∅:D[19.351] → [20.468:489]
B:BD[20.468] → [20.468:489]
```
qdbLogEntryParser = 
```
[19.351]
[19.352]
```
qdbLogEntryParser =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 88 [11.456]
B:BD[19.383] → [5.63:95]
```
       <*> fieldWith uidParser 
```
[19.383]
[5.95]
```
       <*> fieldWith uidParser
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 90 [11.456]
∅:D[5.121] → [20.614:617]
∅:D[4.627] → [20.614:617]
B:BD[20.614] → [20.614:617]
```
  
```
[5.121]
[20.617]
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 92 [11.456]
B:BD[20.652] → [20.652:669]
```
auctionParser = 
```
[20.652]
[4.628]
```
auctionParser =
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 97 [11.456]

B:BD[20.752] → [20.752:862]

bidParser = 
  Bid <$> fieldWith uidParser 
      <*> fieldWith secondsParser 
      <*> fieldWith btcParser

[20.752]

[10.2179]

bidParser =
  Bid <$> fieldWith uidParser
      <*> fieldWith secondsParser
      <*> fieldWith btcParser

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 104 [11.456]
B:BD[20.908] → [20.908:922]
```
userParser = 
```
[20.908]
[20.922]
```
userParser =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 110 [11.456]
∅:D[19.421] → [20.1046:1094]
B:BD[20.1046] → [20.1046:1094]
```
qdbUserParser = 
  (,) <$> fieldWith uidParser 
```
[19.421]
[20.1094]
```
qdbUserParser =
  (,) <$> fieldWith uidParser
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 115 [11.456]

B:BD[20.1151] → [20.1151:1189]

B:BD[20.1189] → [10.2240:2275]

projectParser = 
  Project <$> field 
          <*> fieldWith utcParser

[20.1151]

[20.1210]

projectParser =
  Project <$> field
          <*> fieldWith utcParser

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 122 [11.456]
B:BD[10.2317] → [10.2317:2337]
```
invitationParser = 
```
[10.2317]
[10.2337]
```
invitationParser =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 130 [11.456]
∅:D[19.504] → [20.1286:1337]
B:BD[20.1286] → [20.1286:1337]
```
qdbProjectParser = 
  (,) <$> fieldWith pidParser 
```
[19.504]
[20.1337]
```
qdbProjectParser =
  (,) <$> fieldWith pidParser
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 134 [11.456]
B:BD[17.294] → [20.1362:1410]
```
pexec :: (ToRow d) => Query -> d -> QDBM Int64 
```
[17.294]
[19.505]
```
pexec :: (ToRow d) => Query -> d -> QDBM Int64
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 139 [11.456]

B:BD[26.621] → [20.1466:1527]

pinsert :: (ToRow d) => (UUID -> r) -> Query -> d -> QDBM r

[26.621]

[19.528]

pinsert :: (ToRow d) => (UUID -> r) -> Query -> d -> QDBM r

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 156 [11.456]

B:BD[19.608] → [19.608:680]

  dbEval (CreateEvent (ProjectId pid) (UserId uid) (LogEntry a e m)) =

[19.608]

[19.680]

  dbEval (CreateEvent (ProjectId pid) (UserId uid) (LogEntry a e m)) =

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 160 [11.456]
B:BD[19.840] → [19.840:862]
```
      \RETURNING id" 
```
[19.840]
[19.862]
```
      \RETURNING id"
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 168 [11.456]
B:BD[20.1808] → [15.198:236]
```
  dbEval (FindEvent (EventId eid)) = 
```
[20.1808]
[15.236]
```
  dbEval (FindEvent (EventId eid)) =
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 177 [11.456]

B:BD[19.1409] → [19.1409:1479]

          \WHERE project_id = ? AND user_id = ? AND event_time <= ?"

[19.1409]

[10.2802]

          \WHERE project_id = ? AND user_id = ? AND event_time <= ?"

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 182 [11.456]

B:BD[19.1684] → [19.1684:1737]

          \AND event_time >= ? AND event_time <= ?"

[19.1684]

[10.2837]

          \AND event_time >= ? AND event_time <= ?"

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 186 [11.456]

B:BD[19.1901] → [19.1901:1971]

          \WHERE project_id = ? AND user_id = ? AND event_time >= ?"

[19.1901]

[10.2885]

          \WHERE project_id = ? AND user_id = ? AND event_time >= ?"

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 190 [11.456]

B:BD[9.1084] → [19.2035:2092]

  dbEval (AmendEvent (EventId eid) (TimeChange mt t)) =

[9.1084]

[19.2092]

  dbEval (AmendEvent (EventId eid) (TimeChange mt t)) =

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 195 [11.456]

B:BD[22.1952] → [19.2277:2340]

  dbEval (AmendEvent (EventId eid) (AddressChange mt addr)) =

[22.1952]

[19.2340]

  dbEval (AmendEvent (EventId eid) (AddressChange mt addr)) =

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 199 [11.456]
∅:D[21.376] → [22.2154:2157]
∅:D[19.2527] → [22.2154:2157]
B:BD[22.2154] → [22.2154:2157]
B:BD[22.2157] → [19.2528:2589]
```
  
  dbEval (AmendEvent (EventId eid) (MetadataChange mt v)) = 
```
[19.2527]
[19.2589]
```
  dbEval (AmendEvent (EventId eid) (MetadataChange mt v)) =
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 207 [11.456]

B:BD[19.2839] → [19.2839:2942]

      "SELECT btc_addr, event_type, event_time, event_metadata FROM work_events WHERE project_id = ?"

[19.2839]

[15.433]

      "SELECT btc_addr, event_type, event_time, event_metadata FROM work_events WHERE project_id = ?"

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 211 [11.456]
B:BD[11.4862] → [19.2999:3035]
```
  dbEval (CreateAuction pid auc) = 
```
[11.4862]
[19.3035]
```
  dbEval (CreateAuction pid auc) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 217 [11.456]
B:BD[11.5183] → [15.542:574]
```
  dbEval (FindAuction aucId) = 
```
[11.5183]
[15.574]
```
  dbEval (FindAuction aucId) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 219 [11.456]
∅:D[15.611] → [19.3311:3377]
B:BD[19.3311] → [19.3311:3377]
```
      "SELECT raise_amount, end_time FROM auctions WHERE id = ?" 
```
[15.611]
[19.3377]
```
      "SELECT raise_amount, end_time FROM auctions WHERE id = ?"
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 222 [11.456]
B:BD[11.5425] → [19.3441:3487]
```
  dbEval (CreateBid (AuctionId aucId) bid) = 
```
[11.5425]
[19.3487]
```
  dbEval (CreateBid (AuctionId aucId) bid) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 226 [11.456]
B:BD[19.3634] → [19.3634:3649]
```
      ( aucId 
```
[19.3634]
[19.3649]
```
      ( aucId
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 233 [11.456]
B:BD[11.5525] → [19.3800:3829]
```
  dbEval (ReadBids aucId) = 
```
[11.5525]
[19.3829]
```
  dbEval (ReadBids aucId) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 238 [11.456]
B:BD[17.668] → [19.3977:4008]
```
  dbEval (CreateUser user') = 
```
[17.668]
[19.4008]
```
  dbEval (CreateUser user') =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 243 [11.456]
B:BD[27.705] → [15.648:684]
```
  dbEval (FindUser (UserId uid)) = 
```
[27.705]
[15.684]
```
  dbEval (FindUser (UserId uid)) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 248 [11.456]
B:BD[26.1369] → [15.719:761]
```
  dbEval (FindUserByName (UserName h)) = 
```
[26.1369]
[15.761]
```
  dbEval (FindUserByName (UserName h)) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 261 [11.456]
B:BD[20.3742] → [15.799:831]
```
  dbEval (FindInvitation ic) = 
```
[20.3742]
[15.831]
```
  dbEval (FindInvitation ic) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 278 [11.456]
∅:D[10.4291] → [19.4566:4596]
B:BD[20.3742] → [19.4566:4596]
```
  dbEval (CreateProject p) = 
```
[10.4291]
[19.4596]
```
  dbEval (CreateProject p) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 284 [11.456]
B:BD[17.947] → [15.872:914]
```
  dbEval (FindProject (ProjectId pid)) = 
```
[17.947]
[15.914]
```
  dbEval (FindProject (ProjectId pid)) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 289 [11.456]
B:BD[17.1014] → [19.5055:5099]
```
  dbEval (FindUserProjects (UserId uid)) = 
```
[17.1014]
[19.5099]
```
  dbEval (FindUserProjects (UserId uid)) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 293 [11.456]
B:BD[28.284] → [28.284:315]
```
      \WHERE pc.user_id = ? \ 
```
[28.284]
[28.315]
```
      \WHERE pc.user_id = ? \
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 297 [11.456]
B:BD[17.1043] → [15.952:1006]
```
  dbEval (AddUserToProject pid current new) = void $ 
```
[17.1043]
[15.1006]
```
  dbEval (AddUserToProject pid current new) = void $
```
Replacement in lib/Aftok/Interval.hs at line 3 [30.1422]
B:BD[29.465] → [12.1586:1609]
```
module Aftok.Interval 
```
[29.465]
[31.3]
```
module Aftok.Interval
```
Replacement in lib/Aftok/Interval.hs at line 10 [30.1422]
B:BD[30.1494] → [29.466:487]
```
import ClassyPrelude
```
[30.1494]
[25.1726]
```
import           ClassyPrelude
```

Replacement in lib/Aftok/Interval.hs at line 12 [30.1422]

B:BD[25.1727] → [22.3229:3285]

B:BD[22.3285] → [21.422:446]

∅:D[21.446] → [22.3285:3309]

B:BD[22.3285] → [22.3285:3309]

B:BD[22.3309] → [21.447:539]

import Control.Lens(makeLenses, (^.))
import Data.Aeson
import Data.AffineSpace
import Data.Aeson.Types
import Data.Thyme.Clock as C
import Data.Thyme.LocalTime()
import Data.Thyme.Format.Aeson()

[25.1727]

[30.1544]

import           Control.Lens            (makeLenses, (^.))
import           Data.Aeson
import           Data.Aeson.Types
import           Data.AffineSpace
import           Data.Thyme.Clock        as C
import           Data.Thyme.Format.Aeson ()
import           Data.Thyme.LocalTime    ()

Replacement in lib/Aftok/Interval.hs at line 21 [30.1422]

B:BD[21.587] → [21.587:635]

                         , _end   :: C.UTCTime

[21.587]

[32.78]

                         , _end   :: C.UTCTime

Replacement in lib/Aftok/Interval.hs at line 24 [30.1422]
B:BD[9.1361] → [9.1361:1410]
```
data Interval' = Before { _end'  :: C.UTCTime } 
```
[9.1361]
[9.1410]
```
data Interval' = Before { _end' :: C.UTCTime }
```
Replacement in lib/Aftok/Interval.hs at line 28 [30.1422]
∅:D[32.130] → [25.1840:1887]
∅:D[9.1529] → [25.1840:1887]
B:BD[30.1681] → [25.1840:1887]
```
makeLenses ''Interval                         
```
[9.1529]
[9.1530]
```
makeLenses ''Interval
```
Deletion in lib/Aftok/TimeLog.hs at line 1 [33.846]
B:BD[14.3497] → [14.3497:3530]
```
{-# LANGUAGE TemplateHaskell #-}
```
Insertion in lib/Aftok/TimeLog.hs at line 2 [33.846]
[23.443]
[33.883]
```
{-# LANGUAGE TemplateHaskell    #-}
```
Replacement in lib/Aftok/TimeLog.hs at line 4 [33.846]
B:BD[33.884] → [12.1783:1805]
```
module Aftok.TimeLog 
```
[33.884]
[33.907]
```
module Aftok.TimeLog
```
Replacement in lib/Aftok/TimeLog.hs at line 20 [33.846]
B:BD[33.998] → [29.565:586]
```
import ClassyPrelude
```
[33.998]
[29.586]
```
import           ClassyPrelude
```

Replacement in lib/Aftok/TimeLog.hs at line 22 [33.846]

B:BD[29.587] → [14.3636:3656]

B:BD[14.3656] → [21.757:783]

∅:D[21.783] → [34.3855:3878]

B:BD[14.3656] → [34.3855:3878]

B:BD[22.5660] → [21.784:808]

B:BD[21.808] → [20.6624:6650]

∅:D[20.6650] → [35.41:94]

B:BD[21.808] → [35.41:94]

B:BD[36.91] → [29.588:617]

∅:D[29.617] → [37.2645:2665]

B:BD[36.119] → [37.2645:2665]

B:BD[37.2665] → [21.809:838]

B:BD[21.838] → [20.6651:6668]

∅:D[20.6668] → [21.838:862]

B:BD[21.838] → [21.838:862]

import Control.Lens
import Data.AdditiveGroup
import Data.Aeson as A
import Data.AffineSpace
import Data.Foldable as F
import Data.Heap as H
import Data.List.NonEmpty as L
import Data.Map.Strict as MS
import Data.Ratio()
import Data.Thyme.Clock as C
import Data.UUID
import Data.VectorSpace

[29.587]

[29.618]

import           Control.Lens
import           Data.AdditiveGroup
import           Data.Aeson         as A
import           Data.AffineSpace
import           Data.Foldable      as F
import           Data.Heap          as H
import           Data.List.NonEmpty as L
import           Data.Map.Strict    as MS
import           Data.Ratio         ()
import           Data.Thyme.Clock   as C
import           Data.UUID
import           Data.VectorSpace

Replacement in lib/Aftok/TimeLog.hs at line 35 [33.846]
B:BD[29.619] → [12.1806:1841]
```
import Aftok
import Aftok.Interval
```
[29.619]
[33.1224]
```
import           Aftok
import           Aftok.Interval
```
Replacement in lib/Aftok/TimeLog.hs at line 58 [33.846]
∅:D[32.432] → [38.540:566]
B:BD[33.1407] → [38.540:566]
B:BD[38.566] → [14.4189:4213]
B:BD[14.4213] → [24.1758:1784]
```
data LogEntry = LogEntry 
  { _btcAddr :: BtcAddr
  , _event   :: LogEvent 
```
[32.432]
[24.1784]
```
data LogEntry = LogEntry
  { _btcAddr   :: BtcAddr
  , _event     :: LogEvent
```
Replacement in lib/Aftok/TimeLog.hs at line 66 [33.846]
B:BD[35.242] → [35.242:259]
```
  compare a b = 
```
[35.242]
[24.1817]
```
  compare a b =
```
Replacement in lib/Aftok/TimeLog.hs at line 96 [33.846]
B:BD[21.1201] → [21.1201:1243]
```
type DepF = C.UTCTime -> Interval -> NDT 
```
[21.1201]
[33.2353]
```
type DepF = C.UTCTime -> Interval -> NDT
```
Replacement in lib/Aftok/TimeLog.hs at line 114 [33.846]
B:BD[21.1819] → [35.614:652]
```
payouts dep ptime (WorkIndex widx) = 
```
[21.1819]
[39.876]
```
payouts dep ptime (WorkIndex widx) =
```

Replacement in lib/Aftok/TimeLog.hs at line 116 [33.846]

B:BD[39.960] → [21.1820:1905]

      addIntervalDiff total ivals = (^+^ total) &&& id $ workCredit dep ptime ivals

[39.960]

[40.1011]

      addIntervalDiff total ivals = (^+^ total) &&& id $ workCredit dep ptime ivals

Replacement in lib/Aftok/TimeLog.hs at line 123 [33.846]
B:BD[14.4396] → [14.4396:4420]
```
workIndex logEntries = 
```
[14.4396]
[15.1403]
```
workIndex logEntries =
```

Replacement in lib/Aftok/TimeLog.hs at line 127 [33.846]

B:BD[35.845] → [32.551:600]

      accum k l m = case nonEmpty (rights l) of

[35.845]

[32.600]

      accum k l m = case nonEmpty (rights l) of

Replacement in lib/Aftok/TimeLog.hs at line 141 [33.846]
B:BD[39.2117] → [24.2171:2211]
```
appendLogEntry idx (LogEntry k ev _) = 
```
[39.2117]
[24.2211]
```
appendLogEntry idx (LogEntry k ev _) =
```

Replacement in lib/Aftok/TimeLog.hs at line 154 [33.846]

B:BD[24.2858] → [24.2858:2915]

        -- because the end of that interval is the same

[24.2858]

[24.2915]

        -- because the end of that interval is the same

Replacement in lib/Aftok/TimeLog.hs at line 170 [33.846]
B:BD[19.9889] → [19.9889:9933]
```
linearDepreciation undepLength depLength = 
```
[19.9889]
[21.2404]
```
linearDepreciation undepLength depLength =
```

Replacement in lib/Aftok/TimeLog.hs at line 175 [33.846]

B:BD[21.2537] → [19.9934:10010]

      maxDepreciable = monthsLength undepLength ^+^ monthsLength depLength

[21.2537]

[41.970]

      maxDepreciable = monthsLength undepLength ^+^ monthsLength depLength

Replacement in lib/Aftok/TimeLog.hs at line 178 [33.846]
∅:D[21.2646] → [42.489:508]
B:BD[42.489] → [42.489:508]
```
      depPct dt = 
```
[21.2646]
[19.10011]
```
      depPct dt =
```
Replacement in lib/Aftok/TimeLog.hs at line 182 [33.846]
B:BD[42.558] → [21.2734:2756]
```
  in  \ptime ival -> 
```
[42.558]
[21.2756]
```
  in  \ptime ival ->
```
Replacement in lib/Aftok/Types.hs at line 5 [4.805]
B:BD[4.877] → [4.877:915]
```
import Data.Word
import ClassyPrelude
```
[4.877]
[4.915]
```
import           ClassyPrelude
```
Deletion in lib/Aftok/Types.hs at line 9 [4.805]
B:BD[4.1031] → [4.1031:1036]
```
    
```
Insertion in lib/Aftok/Types.hs at line 10 [4.805]
[4.1037]
Replacement in lib/Aftok/Util/Http.hs at line 3 [43.260]
B:BD[43.294] → [43.294:316]
```
import ClassyPrelude 
```
[43.294]
[43.316]
```
import           ClassyPrelude
```

Replacement in lib/Aftok/Util/Http.hs at line 5 [43.260]

B:BD[43.317] → [43.317:430]

import Data.ByteString (split)
import Data.Attoparsec.ByteString 
import qualified Data.ByteString.Base64 as B64

[43.317]

[43.430]

import           Data.Attoparsec.ByteString
import           Data.ByteString            (split)
import qualified Data.ByteString.Base64     as B64

Replacement in lib/Aftok/Util/Http.hs at line 17 [43.260]

B:BD[43.718] → [43.718:775]

  b64     <- string "Basic " *> takeWhile1 isBase64Char

[43.718]

[43.775]

  b64     <- string "Basic " *> takeWhile1 isBase64Char

Replacement in lib/Aftok/Util.hs at line 5 [19.10061]

B:BD[19.10116] → [19.10116:10199]

import ClassyPrelude
import Control.Monad.Free.Church
import Data.Functor.Coyoneda

[19.10116]

[19.10199]

import           ClassyPrelude
import           Control.Monad.Free.Church
import           Data.Functor.Coyoneda

Replacement in lib/Aftok/Util.hs at line 13 [19.10061]
B:BD[19.10362] → [19.10362:10380]
```
interpret nt p = 
```
[19.10362]
[19.10380]
```
interpret nt p =
```

Replacement in lib/Aftok.hs at line 1 [33.2457]

B:BD[33.2457] → [19.10528:10600]

{-# LANGUAGE NoImplicitPrelude, TemplateHaskell, DeriveDataTypeable #-}

[33.2457]

[29.1126]

{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE NoImplicitPrelude  #-}
{-# LANGUAGE TemplateHaskell    #-}

Replacement in lib/Aftok.hs at line 7 [33.2457]
B:BD[33.2516] → [29.1128:1149]
```
import ClassyPrelude
```
[33.2516]
[25.2689]
```
import           ClassyPrelude
```

Replacement in lib/Aftok.hs at line 9 [33.2457]

B:BD[25.2690] → [19.10601:10687]

B:BD[19.10687] → [10.6723:6764]

∅:D[10.6764] → [19.10687:10704]

B:BD[19.10687] → [19.10687:10704]

B:BD[19.10704] → [10.6765:6794]

∅:D[10.6794] → [9.2203:2220]

∅:D[19.10704] → [9.2203:2220]

B:BD[7.1838] → [9.2203:2220]

B:BD[9.2220] → [10.6795:6817]

import Control.Lens(makePrisms, makeLenses)
import Data.Aeson
import Data.Aeson.Types
import Data.ByteString.Base64.URL as B64
import Data.Data
import Data.Thyme.Clock as C
import Data.UUID
import OpenSSL.Random

[25.2690]

[33.2592]

import           Control.Lens               (makeLenses, makePrisms)
import           Data.Aeson
import           Data.Aeson.Types
import           Data.ByteString.Base64.URL as B64
import           Data.Data
import           Data.Thyme.Clock           as C
import           Data.UUID
import           OpenSSL.Random

Replacement in lib/Aftok.hs at line 24 [33.2457]
B:BD[19.10706] → [19.10706:10739]
```
newtype Months = Months Integer 
```
[19.10706]
[19.10739]
```
newtype Months = Months Integer
```
Replacement in lib/Aftok.hs at line 40 [33.2457]
B:BD[25.2885] → [25.2885:2911]
```
  { _username :: UserName
```
[25.2885]
[25.2911]
```
  { _username    :: UserName
```
Replacement in lib/Aftok.hs at line 42 [33.2457]
B:BD[25.2939] → [10.6886:6910]
```
  , _userEmail :: Email
```
[25.2939]
[25.2962]
```
  , _userEmail   :: Email
```
Replacement in lib/Aftok.hs at line 51 [33.2457]
B:BD[25.3088] → [10.6936:6968]
```
  { _projectName :: ProjectName
```
[25.3088]
[10.6968]
```
  { _projectName   :: ProjectName
```
Replacement in lib/Aftok.hs at line 53 [33.2457]
∅:D[10.7000] → [25.3143:3168]
B:BD[25.3143] → [25.3143:3168]
B:BD[25.3168] → [19.10879:10913]
```
  , _initiator :: UserId
  , _depf :: DepreciationFunction
```
[10.7000]
[25.3168]
```
  , _initiator     :: UserId
  , _depf          :: DepreciationFunction
```

Replacement in lib/Aftok.hs at line 74 [33.2457]

B:BD[10.7512] → [10.7512:7625]

data Invitation = Invitation 
  { _projectId :: ProjectId
  , _invitingUser :: UserId
  , _invitedEmail :: Email

[10.7512]

[10.7625]

data Invitation = Invitation
  { _projectId      :: ProjectId
  , _invitingUser   :: UserId
  , _invitedEmail   :: Email

Replacement in lib/Aftok.hs at line 98 [33.2457]
B:BD[19.11404] → [19.11404:11435]
```
      "LinearDepreciation" -> 
```
[19.11404]
[19.11435]
```
      "LinearDepreciation" ->
```
Replacement in server/Aftok/QConfig.hs at line 3 [44.4500]
B:BD[44.4529] → [44.4529:4551]
```
import ClassyPrelude 
```
[44.4529]
[44.4551]
```
import           ClassyPrelude
```

Replacement in server/Aftok/QConfig.hs at line 5 [44.4500]

B:BD[44.4552] → [44.4552:4683]

B:BD[44.4683] → [2.265:346]

∅:D[2.346] → [44.4683:4709]

∅:D[10.7776] → [44.4683:4709]

B:BD[44.4683] → [44.4683:4709]

B:BD[44.4709] → [10.7777:7805]

import qualified Data.ByteString.Char8 as C
import qualified Data.Configurator as C
import qualified Data.Configurator.Types as CT
import qualified Network.Socket as NS
import qualified Network.Mail.SMTP as SMTP
import System.Environment
import System.IO (FilePath)

[44.4552]

[44.4736]

import qualified Data.ByteString.Char8         as C
import qualified Data.Configurator             as C
import qualified Data.Configurator.Types       as CT
import qualified Network.Mail.SMTP             as SMTP
import qualified Network.Socket                as NS
import           System.Environment
import           System.IO                     (FilePath)

Replacement in server/Aftok/QConfig.hs at line 13 [44.4500]

B:BD[44.4737] → [44.4737:4838]

import Snap.Core
import Snap.Snaplet.PostgresqlSimple
import qualified Snap.Http.Server.Config as SC

[44.4737]

[44.4838]

import           Snap.Core
import qualified Snap.Http.Server.Config       as SC
import           Snap.Snaplet.PostgresqlSimple

Replacement in server/Aftok/QConfig.hs at line 18 [44.4500]

B:BD[44.4863] → [44.4863:4944]

  { hostname :: ByteString
  , port :: Int
  , authSiteKey :: System.IO.FilePath

[44.4863]

[44.4944]

  { hostname      :: ByteString
  , port          :: Int
  , authSiteKey   :: System.IO.FilePath

Replacement in server/Aftok/QConfig.hs at line 22 [44.4500]
B:BD[44.4975] → [44.4975:5002]
B:BD[44.5002] → [2.347:376]
∅:D[2.376] → [10.7850:7889]
B:BD[10.7850] → [10.7850:7889]
∅:D[10.7889] → [44.5079:5084]
B:BD[44.5079] → [44.5079:5084]
```
  , pgsConfig :: PGSConfig
  , smtpConfig :: SmtpConfig
  , templatePath :: System.IO.FilePath
  } 
```
[44.4975]
[2.377]
```
  , pgsConfig     :: PGSConfig
  , smtpConfig    :: SmtpConfig
  , templatePath  :: System.IO.FilePath
  }
```
Replacement in server/Aftok/QConfig.hs at line 27 [44.4500]
B:BD[2.378] → [2.378:408]
```
data SmtpConfig = SmtpConfig 
```
[2.378]
[2.408]
```
data SmtpConfig = SmtpConfig
```

Replacement in server/Aftok/QConfig.hs at line 30 [44.4500]

B:BD[2.472] → [2.472:534]

  , smtpUser :: SMTP.UserName 
  , smtpPass :: SMTP.Password

[2.472]

[2.534]

  , smtpUser :: SMTP.UserName
  , smtpPass :: SMTP.Password

Replacement in server/Aftok/QConfig.hs at line 35 [44.4500]
B:BD[44.5133] → [44.5133:5159]
```
loadQConfig cfgFile = do 
```
[44.5133]
[44.5159]
```
loadQConfig cfgFile = do
```
Replacement in server/Aftok/QConfig.hs at line 37 [44.4500]
B:BD[44.5183] → [44.5183:5221]
```
  cfg <- C.load [C.Required cfgFile] 
```
[44.5183]
[44.5221]
```
  cfg <- C.load [C.Required cfgFile]
```
Replacement in server/Aftok/QConfig.hs at line 42 [44.4500]
B:BD[44.5380] → [44.5380:5402]
```
readQConfig cfg pc = 
```
[44.5380]
[44.5402]
```
readQConfig cfg pc =
```

Replacement in server/Aftok/QConfig.hs at line 44 [44.4500]

B:BD[44.5459] → [44.5459:5506]

          <*> C.lookupDefault 8000 cfg "port"

[44.5459]

[44.5506]

          <*> C.lookupDefault 8000 cfg "port"

Replacement in server/Aftok/QConfig.hs at line 46 [44.4500]
B:BD[44.5544] → [44.5544:5588]
```
          <*> C.lookup cfg "cookieTimeout" 
```
[44.5544]
[44.5588]
```
          <*> C.lookup cfg "cookieTimeout"
```
Replacement in server/Aftok/QConfig.hs at line 52 [44.4500]
B:BD[2.618] → [2.618:640]
```
readSmtpConfig cfg = 
```
[2.618]
[2.640]
```
readSmtpConfig cfg =
```

Replacement in server/Aftok/QConfig.hs at line 59 [44.4500]

B:BD[44.5887] → [44.5887:5966]

baseSnapConfig qc = 
  SC.setHostname (hostname qc) . 
  SC.setPort (port qc)

[44.5887]

[44.6085]

baseSnapConfig qc =
  SC.setHostname (hostname qc) .
  SC.setPort (port qc)

Replacement in server/Aftok/Snaplet/Auth.hs at line 3 [45.203]
B:BD[45.240] → [45.240:262]
```
import ClassyPrelude 
```
[45.240]
[45.262]
```
import           ClassyPrelude
```
Replacement in server/Aftok/Snaplet/Auth.hs at line 5 [45.203]
B:BD[45.263] → [45.263:283]
```
import Control.Lens
```
[45.263]
[19.11680]
```
import           Control.Lens
```

Replacement in server/Aftok/Snaplet/Auth.hs at line 7 [45.203]

B:BD[19.11710] → [10.8173:8267]

import Data.UUID(fromASCIIBytes)
import Data.Attoparsec.ByteString(parseOnly, takeByteString)

[19.11710]

[45.423]

import           Data.Attoparsec.ByteString (parseOnly, takeByteString)
import           Data.UUID                  (fromASCIIBytes)

Replacement in server/Aftok/Snaplet/Auth.hs at line 10 [45.203]

B:BD[45.424] → [12.2169:2267]

import Aftok
import Aftok.Database
import Aftok.Util.Http (authHeaderParser)
import Aftok.Snaplet

[45.424]

[45.489]

import           Aftok
import           Aftok.Database
import           Aftok.Snaplet
import           Aftok.Util.Http            (authHeaderParser)

Replacement in server/Aftok/Snaplet/Auth.hs at line 15 [45.203]
B:BD[45.490] → [45.490:527]
```
import Snap.Core
import Snap.Snaplet
```
[45.490]
[19.11711]
```
import           Snap.Core
import           Snap.Snaplet
```
Replacement in server/Aftok/Snaplet/Auth.hs at line 18 [45.203]
∅:D[19.11751] → [45.564:605]
B:BD[45.564] → [45.564:605]
```
import qualified Snap.Snaplet.Auth as AU
```
[19.11751]
[45.643]
```
import qualified Snap.Snaplet.Auth          as AU
```
Replacement in server/Aftok/Snaplet/Auth.hs at line 20 [45.203]
B:BD[45.1164] → [45.1164:1209]
```
requireLogin :: Handler App App AU.AuthUser 
```
[45.644]
[45.1209]
```
requireLogin :: Handler App App AU.AuthUser
```

Replacement in server/Aftok/Snaplet/Auth.hs at line 24 [45.203]

∅:D[43.2061] → [45.1323:1422]

B:BD[45.1323] → [45.1323:1422]

  (uname, pwd) <- either (throwDenied . AU.AuthError) pure $ parseOnly authHeaderParser rawHeader

[45.1323]

[45.1422]

  (uname, pwd) <- either (throwDenied . AU.AuthError) pure $ parseOnly authHeaderParser rawHeader

Replacement in server/Aftok/Snaplet/Auth.hs at line 28 [45.203]

B:BD[45.1540] → [45.1540:1602]

requireUser :: Handler App App AU.AuthUser 
requireUser = do

[45.1540]

[45.1602]

requireUser :: Handler App App AU.AuthUser
requireUser = do

Replacement in server/Aftok/Snaplet/Auth.hs at line 38 [45.203]

B:BD[45.2042] → [45.2042:2128]

    Nothing -> snapError 403 "Unable to retrieve user record for authenticated user"

[45.2042]

[20.8071]

    Nothing -> snapError 403 "Unable to retrieve user record for authenticated user"

Replacement in server/Aftok/Snaplet/Auth.hs at line 42 [45.203]

B:BD[10.8315] → [10.8315:8479]

requireProjectId = do 
  maybePid <- parseParam "projectId" pidParser 
  maybe (snapError 400 "Value of parameter \"projectId\" cannot be parsed as a valid UUID")

[10.8315]

[10.8479]

requireProjectId = do
  maybePid <- parseParam "projectId" pidParser
  maybe (snapError 400 "Value of parameter \"projectId\" cannot be parsed as a valid UUID")

Replacement in server/Aftok/Snaplet/Auth.hs at line 54 [45.203]

B:BD[45.2616] → [45.2616:2679]

    modifyResponse $ (setResponseStatus 401 "Unauthorized") .

[45.2616]

[12.2268]

    modifyResponse $ (setResponseStatus 401 "Unauthorized") .

Replacement in server/Aftok/Snaplet/Users.hs at line 3 [46.3234]
B:BD[46.3412] → [12.2532:2560]
```
module Aftok.Snaplet.Users 
```
[46.3412]
[45.3137]
```
module Aftok.Snaplet.Users
```
Replacement in server/Aftok/Snaplet/Users.hs at line 8 [46.3234]
B:BD[46.3487] → [46.3487:3509]
```
import ClassyPrelude 
```
[46.3487]
[46.3509]
```
import           ClassyPrelude
```

Replacement in server/Aftok/Snaplet/Users.hs at line 10 [46.3234]

B:BD[46.3510] → [47.95:115]

B:BD[47.142] → [47.142:165]

B:BD[47.165] → [48.478:500]

∅:D[48.500] → [10.10402:10431]

B:BD[47.165] → [10.10402:10431]

import Control.Lens
import Data.Aeson as A
import Data.Text as T
import Data.Thyme.Clock as C

[46.3510]

[10.10431]

import           Control.Lens
import           Data.Aeson         as A
import           Data.Text          as T
import           Data.Thyme.Clock   as C

Replacement in server/Aftok/Snaplet/Users.hs at line 15 [46.3234]

∅:D[10.10432] → [12.2561:2643]

B:BD[47.165] → [12.2561:2643]

import Aftok
import Aftok.Database
import Aftok.Snaplet
import Aftok.Snaplet.Auth

[10.10432]

[46.3650]

import           Aftok
import           Aftok.Database
import           Aftok.Snaplet
import           Aftok.Snaplet.Auth

Replacement in server/Aftok/Snaplet/Users.hs at line 20 [46.3234]

B:BD[46.3651] → [46.3651:3729]

import Snap.Core
import Snap.Snaplet
import qualified Snap.Snaplet.Auth as AU

[46.3651]

[47.268]

import           Snap.Core
import           Snap.Snaplet
import qualified Snap.Snaplet.Auth  as AU

Replacement in server/Aftok/Snaplet/Users.hs at line 25 [46.3234]
∅:D[19.12436] → [47.298:345]
B:BD[47.298] → [47.298:345]
```
  { _cuser :: User
  , _password :: ByteString
```
[19.12436]
[10.10433]
```
  { _cuser           :: User
  , _password        :: ByteString
```
Replacement in server/Aftok/Snaplet/Users.hs at line 32 [46.3234]
∅:D[19.12487] → [47.409:435]
B:BD[47.409] → [47.409:435]
```
  parseJSON (Object v) = 
```
[19.12487]
[10.10475]
```
  parseJSON (Object v) =
```

Replacement in server/Aftok/Snaplet/Users.hs at line 37 [46.3234]

B:BD[10.10652] → [10.10652:10784]

        parseInvitationCodes c = either 
          (\e -> fail $ "Invitation code was rejected as invalid: " <> e) 
          pure

[10.10652]

[10.10784]

        parseInvitationCodes c = either
          (\e -> fail $ "Invitation code was rejected as invalid: " <> e)
          pure

Replacement in server/Aftok/Snaplet/Users.hs at line 60 [46.3234]
B:BD[43.3800] → [10.11293:11344]
```
  either throwDenied (\_ -> createQUser) authUser 
```
[43.3800]
[48.584]
```
  either throwDenied (\_ -> createQUser) authUser
```
Replacement in server/Aftok/Snaplet/Users.hs at line 66 [46.3234]
B:BD[48.714] → [48.714:737]
```
  params <- getParams 
```
[48.714]
[48.737]
```
  params <- getParams
```
Replacement in server/Aftok/Snaplet/Users.hs at line 71 [46.3234]
B:BD[48.889] → [48.889:899]
```
  either 
```
[48.889]
[48.899]
```
  either
```
Replacement in server/Aftok/Snaplet/Users.hs at line 75 [46.3234]
B:BD[48.1064] → [48.1064:1073]
```
  
  
  
```
[48.1064]
Replacement in server/Aftok/Snaplet/Util.hs at line 3 [9.4207]
B:BD[9.4244] → [9.4244:4266]
```
import ClassyPrelude 
```
[9.4244]
[9.4266]
```
import           ClassyPrelude
```

Replacement in server/Aftok/Snaplet/Util.hs at line 5 [9.4207]

B:BD[9.4267] → [9.4267:4411]

import Control.Monad.Trans.Maybe
import Data.ByteString.Char8 as B
import Data.Time.ISO8601
import Data.Thyme.Time
import Data.Thyme.Clock as C

[9.4267]

[9.4411]

import           Control.Monad.Trans.Maybe
import           Data.ByteString.Char8     as B
import           Data.Thyme.Clock          as C
import           Data.Thyme.Time
import           Data.Time.ISO8601

Replacement in server/Aftok/Snaplet/Util.hs at line 11 [9.4207]
B:BD[9.4412] → [9.4412:4429]
```
import Snap.Core
```
[9.4412]
[9.4429]
```
import           Snap.Core
```
Replacement in server/Aftok/Snaplet/WorkLog.hs at line 3 [46.5424]
B:BD[46.5522] → [46.5522:5544]
```
import ClassyPrelude 
```
[46.5522]
[46.5544]
```
import           ClassyPrelude
```

Replacement in server/Aftok/Snaplet/WorkLog.hs at line 5 [46.5424]

B:BD[46.5545] → [46.5545:5565]

B:BD[46.5592] → [46.5592:5625]

B:BD[46.5625] → [20.8148:8194]

∅:D[20.8194] → [21.2995:3024]

B:BD[46.5625] → [21.2995:3024]

import Control.Lens
import qualified Data.Aeson as A
import Data.Aeson.Types
import Data.UUID as U
import Data.Thyme.Clock as C

[46.5545]

[46.5641]

import           Control.Lens
import qualified Data.Aeson         as A
import           Data.Aeson.Types
import           Data.Thyme.Clock   as C
import           Data.UUID          as U

Replacement in server/Aftok/Snaplet/WorkLog.hs at line 11 [46.5424]

B:BD[46.5642] → [12.2782:2878]

import Aftok
import Aftok.Database
import Aftok.Interval
import Aftok.Json
import Aftok.TimeLog

[46.5642]

[46.5728]

import           Aftok
import           Aftok.Database
import           Aftok.Interval
import           Aftok.Json
import           Aftok.TimeLog

Replacement in server/Aftok/Snaplet/WorkLog.hs at line 17 [46.5424]

B:BD[46.5729] → [12.2879:2952]

import Aftok.Snaplet
import Aftok.Snaplet.Auth
import Aftok.Snaplet.Util

[46.5729]

[46.5755]

import           Aftok.Snaplet
import           Aftok.Snaplet.Auth
import           Aftok.Snaplet.Util

Replacement in server/Aftok/Snaplet/WorkLog.hs at line 21 [46.5424]
B:BD[46.5756] → [46.5756:5793]
```
import Snap.Core
import Snap.Snaplet
```
[46.5756]
[46.5830]
```
import           Snap.Core
import           Snap.Snaplet
```
Replacement in server/Aftok/Snaplet/WorkLog.hs at line 25 [46.5424]
B:BD[24.3219] → [24.3219:3246]
```
logWorkHandler evCtr = do 
```
[24.3219]
[19.12607]
```
logWorkHandler evCtr = do
```
Replacement in server/Aftok/Snaplet/WorkLog.hs at line 32 [46.5424]
B:BD[46.6216] → [19.12657:12673]
```
    Nothing -> 
```
[46.6216]
[19.12673]
```
    Nothing ->
```
Replacement in server/Aftok/Snaplet/WorkLog.hs at line 34 [46.5424]
∅:D[19.12756] → [20.8283:8301]
B:BD[46.6308] → [20.8283:8301]
```
    Just addr -> 
```
[19.12756]
[19.12757]
```
    Just addr ->
```
Replacement in server/Aftok/Snaplet/WorkLog.hs at line 56 [46.5424]
∅:D[49.1704] → [45.3650:3671]
B:BD[46.6669] → [45.3650:3671]
```
payoutsHandler = do 
```
[49.1704]
[19.13025]
```
payoutsHandler = do
```
Replacement in server/Aftok/Snaplet/WorkLog.hs at line 59 [46.5424]
B:BD[19.13074] → [19.13074:13122]
```
  projectMay <- snapEval $ findProject pid uid 
```
[19.13074]
[19.13122]
```
  projectMay <- snapEval $ findProject pid uid
```

Replacement in server/Aftok/Snaplet/WorkLog.hs at line 69 [46.5424]

B:BD[20.8865] → [20.8865:8960]

  eventId <- maybe 
    (snapError 400 "eventId parameter is required") 
    (pure . EventId)

[20.8865]

[20.8960]

  eventId <- maybe
    (snapError 400 "eventId parameter is required")
    (pure . EventId)

Replacement in server/Aftok/Snaplet/WorkLog.hs at line 75 [46.5424]
B:BD[20.9233] → [19.13340:13350]
```
  either 
```
[20.9233]
[19.13350]
```
  either
```

Replacement in server/Aftok/Snaplet.hs at line 1 [46.1088]

B:BD[46.1088] → [45.3819:3871]

{-# LANGUAGE TemplateHaskell, FlexibleInstances #-}

[46.1088]

[46.1158]

{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE TemplateHaskell   #-}

Replacement in server/Aftok/Snaplet.hs at line 6 [46.1088]
B:BD[46.1192] → [46.1192:1214]
```
import ClassyPrelude 
```
[46.1192]
[46.1214]
```
import           ClassyPrelude
```

Replacement in server/Aftok/Snaplet.hs at line 8 [46.1088]

B:BD[46.1215] → [46.1215:1290]

B:BD[46.1290] → [10.11346:11380]

∅:D[10.11380] → [20.9489:9522]

B:BD[46.1290] → [20.9489:9522]

B:BD[20.9522] → [10.11381:11434]

import Control.Lens
import Control.Monad.Reader
import Control.Monad.State
import Control.Monad.Trans.Either
import qualified Data.Aeson as A
import Data.Attoparsec.ByteString(Parser, parseOnly)

[46.1215]

[46.1324]

import           Control.Lens
import           Control.Monad.Reader
import           Control.Monad.State
import           Control.Monad.Trans.Either
import qualified Data.Aeson                    as A
import           Data.Attoparsec.ByteString    (Parser, parseOnly)

Replacement in server/Aftok/Snaplet.hs at line 15 [46.1088]
B:BD[46.1325] → [10.11435:11448]
∅:D[10.11448] → [12.3017:3072]
B:BD[46.1325] → [12.3017:3072]
B:BD[12.3072] → [19.13479:13497]
```
import Aftok
import Aftok.Database
import Aftok.Database.PostgreSQL
import Aftok.Util
```
[46.1325]
[46.1432]
```
import           Aftok
import           Aftok.Database
import           Aftok.Database.PostgreSQL
import           Aftok.Util
```

Replacement in server/Aftok/Snaplet.hs at line 20 [46.1088]

B:BD[46.1433] → [46.1433:1576]

import Snap.Core
import Snap.Snaplet
import Snap.Snaplet.PostgresqlSimple
import qualified Snap.Snaplet.Auth as AU
import Snap.Snaplet.Session

[46.1433]

[46.1688]

import           Snap.Core
import           Snap.Snaplet
import qualified Snap.Snaplet.Auth             as AU
import           Snap.Snaplet.PostgresqlSimple
import           Snap.Snaplet.Session

Replacement in server/Aftok/Snaplet.hs at line 26 [46.1088]
B:BD[46.1689] → [46.1689:1705]
```
data App = App 
```
[46.1689]
[19.13498]
```
data App = App
```

Replacement in server/Aftok/Snaplet.hs at line 39 [46.1088]

B:BD[10.11621] → [10.11621:11678]

  let handleDBError (OpForbidden (UserId uid) reason) =

[10.11621]

[10.11678]

  let handleDBError (OpForbidden (UserId uid) reason) =

Replacement in server/Aftok/Snaplet.hs at line 41 [46.1088]
B:BD[10.11748] → [10.11748:11789]
```
      handleDBError (SubjectNotFound) = 
```
[10.11748]
[10.11789]
```
      handleDBError (SubjectNotFound) =
```
Replacement in server/Aftok/Snaplet.hs at line 56 [46.1088]
B:BD[46.3169] → [46.3169:3199]
```
  getResponse >>= finishWith 
```
[46.3169]
[10.11976]
```
  getResponse >>= finishWith
```
Replacement in server/Main.hs at line 3 [51.5188]
B:BD[29.1461] → [50.148:170]
```
import ClassyPrelude 
```
[29.1461]
[51.5259]
```
import           ClassyPrelude
```

Replacement in server/Main.hs at line 5 [51.5188]

B:BD[52.170] → [49.593:626]

B:BD[49.626] → [53.1635:1661]

import qualified Data.Aeson as A
import System.Environment

[51.5260]

[54.918]

import qualified Data.Aeson                                  as A
import           System.Environment

Replacement in server/Main.hs at line 8 [51.5188]
B:BD[54.919] → [12.3095:3134]
```
import Aftok.TimeLog
import Aftok.Json
```
[54.919]
[54.942]
```
import           Aftok.Json
import           Aftok.TimeLog
```

Replacement in server/Main.hs at line 11 [51.5188]

B:BD[54.943] → [44.6333:6354]

∅:D[44.6354] → [12.3135:3268]

B:BD[54.943] → [12.3135:3268]

import Aftok.QConfig
import Aftok.Snaplet
import Aftok.Snaplet.Auth
import Aftok.Snaplet.Users
import Aftok.Snaplet.WorkLog
import Aftok.Snaplet.Projects

[54.943]

[46.782]

import           Aftok.QConfig
import           Aftok.Snaplet
import           Aftok.Snaplet.Auth
import           Aftok.Snaplet.Projects
import           Aftok.Snaplet.Users
import           Aftok.Snaplet.WorkLog

Replacement in server/Main.hs at line 18 [51.5188]

∅:D[46.783] → [55.1565:1582]

∅:D[54.943] → [55.1565:1582]

B:BD[56.2567] → [55.1565:1582]

B:BD[52.218] → [11.7662:7682]

B:BD[11.7682] → [27.1189:1226]

∅:D[27.1267] → [11.7707:7758]

B:BD[11.7707] → [11.7707:7758]

B:BD[11.7823] → [11.7823:7874]

import Snap.Core
import Snap.Snaplet
import Snap.Snaplet.PostgresqlSimple
import Snap.Snaplet.Auth.Backends.PostgresqlSimple
import Snap.Snaplet.Session.Backends.CookieSession

[46.783]

[57.314]

import           Snap.Core
import           Snap.Snaplet
import           Snap.Snaplet.Auth.Backends.PostgresqlSimple
import           Snap.Snaplet.PostgresqlSimple
import           Snap.Snaplet.Session.Backends.CookieSession

Replacement in server/Main.hs at line 33 [51.5188]
∅:D[58.55] → [11.8526:8568]
∅:D[17.2273] → [11.8526:8568]
∅:D[10.12436] → [11.8526:8568]
B:BD[11.8526] → [11.8526:8568]
```
  sesss <- nestSnaplet "sessions" sess $ 
```
[10.12436]
[10.12437]
```
  sesss <- nestSnaplet "sessions" sess $
```

Replacement in server/Main.hs at line 54 [51.5188]

B:BD[17.2570] → [3.214:265]

  addRoutes [ ("login",             loginRoute)

[17.2570]

[3.265]

  addRoutes [ ("login",             loginRoute)

Replacement in server/Main.hs at line 63 [51.5188]

B:BD[17.3049] → [9.3550:3631]

            , ("projects/:projectId/logEnd/:btcAddr",   logEventRoute StopWork)

[17.3049]

[9.3631]

            , ("projects/:projectId/logEnd/:btcAddr",   logEventRoute StopWork)

Replacement in server/Main.hs at line 70 [51.5188]
∅:D[58.216] → [11.8999:9014]
∅:D[46.1047] → [11.8999:9014]
∅:D[49.1120] → [11.8999:9014]
∅:D[59.1396] → [11.8999:9014]
∅:D[43.1943] → [11.8999:9014]
∅:D[17.3397] → [11.8999:9014]
∅:D[9.3938] → [11.8999:9014]
∅:D[25.3957] → [11.8999:9014]
∅:D[22.7585] → [11.8999:9014]
∅:D[10.13332] → [11.8999:9014]
B:BD[11.8999] → [11.8999:9014]
```
            ] 
```
[10.13332]
[19.13644]
```
            ]
```

Replacement in test/Aftok/TimeLogSpec.hs at line 1 [33.3665]

B:BD[33.3665] → [29.1583:1658]

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

[33.3665]

[21.3106]

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

Replacement in test/Aftok/TimeLogSpec.hs at line 8 [33.3665]
B:BD[29.1660] → [29.1660:1681]
```
import ClassyPrelude
```
[29.1660]
[39.2656]
```
import           ClassyPrelude
```

Replacement in test/Aftok/TimeLogSpec.hs at line 10 [33.3665]

B:BD[39.2657] → [35.1696:1747]

B:BD[35.1747] → [24.3398:3478]

∅:D[24.3478] → [35.1807:1860]

B:BD[35.1807] → [35.1807:1860]

import Control.Lens ((^.))
import Data.AffineSpace
import qualified Data.List.NonEmpty as L 
import qualified Data.Map.Strict as M
import Data.Time.ISO8601
import Data.Thyme.Time as T

[39.2657]

[35.1860]

import           Control.Lens       ((^.))
import           Data.AffineSpace
import qualified Data.List.NonEmpty as L
import qualified Data.Map.Strict    as M
import           Data.Thyme.Time    as T
import           Data.Time.ISO8601

Replacement in test/Aftok/TimeLogSpec.hs at line 17 [33.3665]

B:BD[35.1861] → [12.3553:3615]

import Aftok
import Aftok.Interval as I
import Aftok.TimeLog

[35.1861]

[60.269]

import           Aftok
import           Aftok.Interval     as I
import           Aftok.TimeLog

Replacement in test/Aftok/TimeLogSpec.hs at line 21 [33.3665]
B:BD[21.3256] → [21.3256:3279]
B:BD[21.3279] → [35.1888:1906]
```
import Test.QuickCheck
import Test.Hspec
```
[60.270]
[21.3279]
```
import           Test.Hspec
import           Test.QuickCheck
```
Replacement in test/Aftok/TimeLogSpec.hs at line 36 [33.3665]
B:BD[24.3596] → [31.52:93]
∅:D[31.93] → [24.3629:3666]
B:BD[24.3629] → [24.3629:3666]
```
buildIntervals t (d : s : dx) | d > 0 = 
  let ival = I.interval t (t .+^ d) 
```
[24.3596]
[31.94]
```
buildIntervals t (d : s : dx) | d > 0 =
  let ival = I.interval t (t .+^ d)
```
Replacement in test/Aftok/TimeLogSpec.hs at line 43 [33.3665]
B:BD[24.3800] → [24.3800:3828]
```
    startTime <- arbitrary 
```
[24.3800]
[31.146]
```
    startTime <- arbitrary
```
Replacement in test/Aftok/TimeLogSpec.hs at line 49 [33.3665]
B:BD[35.2081] → [35.2081:2096]
B:BD[35.2096] → [24.3999:4038]
```
  arbitrary = 
    let record = do addr <- arbitrary 
```
[35.2081]
[24.4038]
```
  arbitrary =
    let record = do addr <- arbitrary
```

Replacement in test/Aftok/TimeLogSpec.hs at line 58 [33.3665]

B:BD[61.198] → [35.2221:2263]

B:BD[35.2263] → [62.6:39]

    it "reduces a log to a work index" $ 
      let testAddrs = catMaybes

[61.198]

[35.2309]

    it "reduces a log to a work index" $
      let testAddrs = catMaybes

Replacement in test/Aftok/TimeLogSpec.hs at line 64 [33.3665]
B:BD[33.4127] → [62.40:82]
```
          starts = toThyme <$> catMaybes 
```
[33.4127]
[35.2466]
```
          starts = toThyme <$> catMaybes
```
Replacement in test/Aftok/TimeLogSpec.hs at line 68 [33.3665]
B:BD[33.4254] → [62.83:125]
```
          ends   = toThyme <$> catMaybes 
```
[33.4254]
[24.4127]
```
          ends   = toThyme <$> catMaybes
```
Replacement in test/Aftok/TimeLogSpec.hs at line 89 [33.3665]
B:BD[35.3444] → [32.1936:1964]
```
      \(WorkIndex widx) -> 
```
[35.3444]
[31.237]
```
      \(WorkIndex widx) ->
```

Replacement in test/Aftok/Util/HttpSpec.hs at line 1 [43.4932]

B:BD[43.4932] → [43.4933:5008]

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

[43.4932]

[43.5008]

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

Replacement in test/Aftok/Util/HttpSpec.hs at line 7 [43.4932]
B:BD[43.5046] → [43.5046:5067]
```
import ClassyPrelude
```
[43.5046]
[43.5067]
```
import           ClassyPrelude
```
Replacement in test/Aftok/Util/HttpSpec.hs at line 9 [43.4932]
B:BD[43.5068] → [12.3705:3728]
∅:D[12.3728] → [43.5094:5129]
B:BD[43.5094] → [43.5094:5129]
```
import Aftok.Util.Http
import Data.Attoparsec.ByteString 
```
[43.5068]
[43.5129]
```
import           Aftok.Util.Http
import           Data.Attoparsec.ByteString
```
Replacement in test/Aftok/Util/HttpSpec.hs at line 12 [43.4932]
B:BD[43.5130] → [43.5130:5148]
```
import Test.Hspec
```
[43.5130]
[43.5148]
```
import           Test.Hspec
```

Reformat via stylish-haskell

Dependencies

In channels

Change contents

Replacement in lib/Aftok/Auction.hs at line 5 [6.5084]

Replacement in lib/Aftok/Auction.hs at line 11 [6.5084]

Replacement in lib/Aftok/Auction.hs at line 17 [6.5084]

Replacement in lib/Aftok/Auction.hs at line 19 [6.5084]

Replacement in lib/Aftok/Auction.hs at line 35 [6.5084]

Replacement in lib/Aftok/Auction.hs at line 37 [6.5084]

Replacement in lib/Aftok/Auction.hs at line 44 [6.5084]

Replacement in lib/Aftok/Auction.hs at line 48 [6.5084]

Replacement in lib/Aftok/Auction.hs at line 52 [6.5084]

Replacement in lib/Aftok/Auction.hs at line 60 [6.5084]

Replacement in lib/Aftok/Client.hs at line 1 [16.1]

Replacement in lib/Aftok/Client.hs at line 7 [16.1]

Replacement in lib/Aftok/Client.hs at line 9 [16.1]

Replacement in lib/Aftok/Client.hs at line 13 [16.1]

Replacement in lib/Aftok/Client.hs at line 15 [16.1]

Replacement in lib/Aftok/Client.hs at line 23 [16.1]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 1 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 6 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 20 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 39 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 42 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 47 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 49 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 77 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 80 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 86 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 88 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 90 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 92 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 97 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 104 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 110 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 115 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 122 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 130 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 134 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 139 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 156 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 160 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 168 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 177 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 182 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 186 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 190 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 195 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 199 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 207 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 211 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 217 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 219 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 222 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 226 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 233 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 238 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 243 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 248 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 261 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 278 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 284 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 289 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 293 [11.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 297 [11.456]

Replacement in lib/Aftok/Interval.hs at line 3 [30.1422]

Replacement in lib/Aftok/Interval.hs at line 10 [30.1422]

Replacement in lib/Aftok/Interval.hs at line 12 [30.1422]

Replacement in lib/Aftok/Interval.hs at line 21 [30.1422]

Replacement in lib/Aftok/Interval.hs at line 24 [30.1422]

Replacement in lib/Aftok/Interval.hs at line 28 [30.1422]

Deletion in lib/Aftok/TimeLog.hs at line 1 [33.846]

Insertion in lib/Aftok/TimeLog.hs at line 2 [33.846]

Replacement in lib/Aftok/TimeLog.hs at line 4 [33.846]

Replacement in lib/Aftok/TimeLog.hs at line 20 [33.846]

Replacement in lib/Aftok/TimeLog.hs at line 22 [33.846]

Replacement in lib/Aftok/TimeLog.hs at line 35 [33.846]

Replacement in lib/Aftok/TimeLog.hs at line 58 [33.846]

Replacement in lib/Aftok/TimeLog.hs at line 66 [33.846]