nuttycom/aftok - Change HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC

Implement core of payments/billing infrastructure.

Upgrade stack to lts-7.16

Created by Kris Nuttycombe on January 21, 2017

HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC

Dependencies

In channels

main

Change contents

Insertion in aftok.cabal at line 32 [5.1]

[3.194]

[4.1]

                      Aftok.Payments.Types

Replacement in aftok.cabal at line 40 [5.1]

B:BD[6.1607] → [7.245:280]

B:BD[7.280] → [3.229:266]

∅:D[3.266] → [7.280:316]

B:BD[7.280] → [7.280:316]

B:BD[7.316] → [3.267:303]

∅:D[3.303] → [8.50:86]

B:BD[8.50] → [8.50:86]

B:BD[8.86] → [9.75:75]

∅:D[9.75] → [7.387:422]

∅:D[10.86] → [7.387:422]

∅:D[8.86] → [7.387:422]

B:BD[7.387] → [7.387:422]

      base                >= 4.8.0
    , bippy               == 0.1.0.0
    , classy-prelude      == 0.12.*
    , aeson               >= 0.11.2
    , attoparsec          == 0.13.*
    , base64-bytestring   == 1.0.*

[6.1607]

[11.3072]

      base                
    , bippy               
    , classy-prelude      
    , aeson              
    , attoparsec         
    , base64-bytestring

Replacement in aftok.cabal at line 50 [5.1]
∅:D[12.14] → [7.423:458]
B:BD[13.1161] → [7.423:458]
```
    , containers          >= 0.5.6
```
[12.14]
[14.2624]
```
    , containers       
```

Replacement in aftok.cabal at line 52 [5.1]

B:BD[14.2656] → [7.459:494]

B:BD[7.494] → [10.87:122]

    , either              >= 4.4.1
    , errors              == 2.1.*

[14.2656]

[15.35]

    , cryptonite
    , either          
    , errors

Replacement in aftok.cabal at line 56 [5.1]

B:BD[15.46] → [7.542:589]

B:BD[7.589] → [3.304:337]

∅:D[3.337] → [7.589:636]

B:BD[7.589] → [7.589:636]

∅:D[7.636] → [14.2794:2841]

B:BD[14.2794] → [14.2794:2841]

B:BD[14.2841] → [7.637:685]

    , groups              >= 0.4      && < 0.5
    , haskoin-core        >= 0.4
    , heaps               >= 0.3.1    && < 0.4
    , hourglass           >= 0.2.6    && < 0.3
    , HsOpenSSL           >= 0.11     && < 0.12

[15.46]

[15.47]

    , groups        
    , haskoin-core 
    , heaps       
    , hourglass

Replacement in aftok.cabal at line 61 [5.1]
B:BD[15.68] → [8.123:157]
```
    , lens                >= 4.11
```
[15.68]
[16.1]
```
    , lens     
```
Replacement in aftok.cabal at line 63 [5.1]
∅:D[16.11] → [7.781:815]
∅:D[9.77] → [7.781:815]
∅:D[10.206] → [7.781:815]
∅:D[8.206] → [7.781:815]
B:BD[7.781] → [7.781:815]
B:BD[7.815] → [3.338:375]
```
    , old-locale          >= 1.0 
    , postgresql-simple   >= 0.5.2.0
```
[16.11]
[12.15]
```
    , network-uri
    , old-locale        
    , postgresql-simple
```
Replacement in aftok.cabal at line 67 [5.1]
∅:D[12.30] → [7.862:909]
∅:D[10.242] → [7.862:909]
∅:D[8.242] → [7.862:909]
∅:D[3.375] → [7.862:909]
B:BD[7.862] → [7.862:909]
```
    , safe                >= 0.3.9    && < 0.4
```
[12.30]
[17.1511]
```
    , safe            
```

Replacement in aftok.cabal at line 71 [5.1]

B:BD[17.1599] → [7.910:1051]

    , text                >= 1.2.1    && < 1.3
    , thyme               >= 0.3.5    && < 0.4
    , uuid                >= 1.3.10   && < 1.4

[17.1599]

[18.704]

    , text           
    , thyme         
    , uuid

Replacement in aftok.cabal at line 76 [5.1]
B:BD[19.2906] → [7.1052:1085]
```
    , wreq                >= 0.4
```
[19.2906]
[5.1311]
```
    , wreq        
```
Replacement in aftok.cabal at line 97 [5.1]
B:BD[6.2188] → [7.1086:1115]
```
    , hspec         >= 2.1.7
```
[6.2188]
[20.1]
```
    , hspec      
```
Replacement in aftok.cabal at line 102 [5.1]
∅:D[21.75] → [7.1116:1143]
B:BD[17.1651] → [7.1116:1143]
```
    , QuickCheck    >= 2.8
```
[17.1651]
[17.1675]
```
    , QuickCheck 
```
Replacement in aftok.cabal at line 144 [5.1]
∅:D[22.17] → [7.1178:1219]
B:BD[23.161] → [7.1178:1219]
```
    , HStringTemplate           >= 0.8.3
```
[22.17]
[14.3150]
```
    , HStringTemplate          
```
Replacement in aftok.cabal at line 146 [5.1]
B:BD[14.3169] → [7.1220:1247]
```
    , HsOpenSSL           
```
[14.3169]
[24.41]
```
    --, HsOpenSSL           
```

Replacement in aftok.cabal at line 149 [5.1]

∅:D[25.17] → [7.1248:1348]

B:BD[24.52] → [7.1248:1348]

    , mtl                       >= 2.2    && < 3
    , MonadCatchIO-transformers >= 0.3    && < 0.4

[25.17]

[25.18]

    , mtl                     
    --, MonadCatchIO-transformers

Replacement in aftok.cabal at line 154 [5.1]

B:BD[26.7376] → [27.7298:7326]

B:BD[27.7326] → [25.52:95]

∅:D[25.95] → [7.1388:1584]

B:BD[7.1388] → [7.1388:1584]

    , resource-pool-catchio
    , smtp-mail                 >= 0.1.4.5
    , snap                      >= 0.14
    , snap-core                 >= 0.9    && < 0.11
    , snap-server               >= 0.9    && < 0.11
    , snaplet-postgresql-simple >= 0.6    && < 0.11

[26.7376]

[27.7327]

    --, resource-pool-catchio
    , smtp-mail               
    , snap                    
    , snap-core              
    , snap-server           
    , snaplet-postgresql-simple

Insertion in lib/Aftok/Billables.hs at line 2 [3.760]

[3.794]

{-# LANGUAGE DeriveFunctor #-}
{-# LANGUAGE DeriveFoldable #-}
{-# LANGUAGE DeriveTraversable #-}

Insertion in lib/Aftok/Billables.hs at line 11 [3.760]

[2.59]

[3.914]

import           Data.Thyme.Clock as C
import           Data.UUID

Deletion in lib/Aftok/Billables.hs at line 18 [3.760]
B:BD[2.185] → [2.185:212]
```
import           Data.UUID
```
Deletion in lib/Aftok/Billables.hs at line 44 [3.760]
B:BD[28.689] → [28.689:742]
B:BD[28.742] → [2.385:454]
∅:D[2.454] → [3.1340:1365]
B:BD[3.1340] → [3.1340:1365]
B:BD[3.1365] → [2.455:508]
∅:D[2.508] → [3.1412:1441]
B:BD[3.1412] → [3.1412:1441]
B:BD[3.1441] → [28.762:837]
∅:D[28.837] → [3.1463:1464]
B:BD[3.1463] → [3.1463:1464]
```
data Billable' (p :: *) (u :: *) (c :: *) = Billable
  { _project     :: p
  , _creator     :: u
  , _name        :: Text
  , _description :: Text
  , _recurrence  :: Recurrence
  , _amount      :: c
  , _gracePeriod :: Days
  }
makeLenses ''Billable'
type Billable = Billable' ProjectId UserId Satoshi
```

Insertion in lib/Aftok/Billables.hs at line 58 [3.760]

[3.1729]


data Billable' p u c = Billable
  { _project     :: p
  , _creator     :: u
  , _name        :: Text
  , _description :: Text
  , _recurrence  :: Recurrence
  , _amount      :: c
  , _gracePeriod :: Days
  , _requestExpiryPeriod :: Maybe C.NominalDiffTime 
  }
makeLenses ''Billable'

Insertion in lib/Aftok/Billables.hs at line 71 [3.760]
[3.1730]
[28.964]
```
type Billable = Billable' ProjectId UserId Satoshi
```

Insertion in lib/Aftok/Billables.hs at line 75 [3.760]

[12.62]

[28.1029]


data Subscription' b = Subscription 
  { _billable :: b
  , _startTime :: C.UTCTime
  , _endTime :: Maybe C.UTCTime
  } deriving (Functor, Foldable, Traversable)
makeLenses ''Subscription'

Insertion in lib/Aftok/Billables.hs at line 83 [3.760]
[28.1030]
```
type Subscription = Subscription' BillableId
```
Deletion in lib/Aftok/Database/PostgreSQL.hs at line 10 [26.456]
∅:D[29.74] → [30.1106:1165]
∅:D[2.581] → [30.1106:1165]
B:BD[30.1106] → [30.1106:1165]
```
import qualified Data.ByteString.Char8                as B
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 26 [26.456]

B:BD[28.1147] → [28.1147:1207]

import qualified Aftok.Billables                      as BI

[28.1147]

[30.1614]

import qualified Aftok.Billables                      as B

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 32 [26.456]

B:BD[2.935] → [2.935:1008]

                                                       subscriptionJSON)

[2.935]

[12.173]

                                                       createSubscriptionJSON)

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 48 [26.456]

B:BD[26.1216] → [26.1216:1290]

B:BD[26.1290] → [28.1340:1423]

∅:D[28.1423] → [31.83:84]

B:BD[31.83] → [31.83:84]

∅:D[31.84] → [26.1290:1373]

B:BD[26.1290] → [26.1290:1373]

uidParser :: FieldParser UserId
uidParser f v = UserId <$> fromField f v
pidParser :: FieldParser P.ProjectId
pidParser f v = P.ProjectId <$> fromField f v
secondsParser :: FieldParser Seconds
secondsParser f v = Seconds <$> fromField f v

[26.1216]

[26.1373]

uidParser :: RowParser UserId
uidParser = UserId <$> field

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 51 [26.456]

B:BD[26.1374] → [26.1374:1461]

usernameParser :: FieldParser UserName
usernameParser f v = UserName <$> fromField f v

[26.1374]

[26.1461]

pidParser :: RowParser P.ProjectId
pidParser = P.ProjectId <$> field

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 54 [26.456]

B:BD[26.1462] → [7.2028:2103]

emailParser :: FieldParser Email
emailParser f v = Email <$> fromField f v

[26.1462]

[7.2103]

subscriptionIdParser :: RowParser B.SubscriptionId
subscriptionIdParser = B.SubscriptionId <$> field

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 60 [26.456]

B:BD[3.1952] → [3.1952:2363]

  let err = ConversionFailed { errSQLType = "text"
                             , errSQLTableOid = tableOid f
                             , errSQLField = maybe "" B.unpack (name f)
                             , errHaskellType = "BtcAddr"
                             , errMessage = "could not deserialize value to a valid BTC address"
                             }
  maybe (conversionError err) pure addrMay

[3.1952]

[26.1545]

  let err = returnError ConversionFailed f "could not deserialize value to a valid BTC address"
  maybe err pure addrMay

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 63 [26.456]

B:BD[26.1546] → [10.477:510]

B:BD[10.510] → [32.4:62]

btcParser :: FieldParser Satoshi
btcParser f v = (Satoshi . fromInteger) <$> fromField f v

[26.1546]

[19.57]

btcParser :: RowParser Satoshi
btcParser = (Satoshi . fromInteger) <$> field

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 66 [26.456]

B:BD[19.58] → [19.58:93]

B:BD[19.93] → [30.1868:1910]

utcParser :: FieldParser C.UTCTime
utcParser f v = toThyme <$> fromField f v

[19.58]

[33.66]

utcParser :: RowParser C.UTCTime
utcParser = toThyme <$> field

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 72 [26.456]

B:BD[33.114] → [28.1424:1533]

B:BD[28.1533] → [2.1083:1188]

∅:D[2.1188] → [28.1632:1692]

B:BD[28.1632] → [28.1632:1692]

B:BD[28.1692] → [2.1189:1325]

∅:D[2.1325] → [28.1810:1832]

B:BD[28.1810] → [28.1810:1832]

recurrenceParser :: RowParser BI.Recurrence
recurrenceParser =
  let prec :: Text -> RowParser BI.Recurrence
      prec "annually"    = nullField *> pure BI.Annually
      prec "monthly"     = BI.Monthly <$> field
      prec "semimonthly" = nullField *> pure BI.SemiMonthly
      prec "weekly"      = BI.Weekly <$> field
      prec "onetime"     = nullField *> pure BI.OneTime
      prec _             = empty
  in  field >>= prec

Insertion in lib/Aftok/Database/PostgreSQL.hs at line 78 [26.456]

[28.2025]

[34.271]


nominalDiffTimeParser :: FieldParser NominalDiffTime
nominalDiffTimeParser f v = 
  C.fromSeconds' <$> fromField f v

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

B:BD[28.2201] → [28.2201:2409]

      parser "credit_to_user"     = CreditToUser    <$> (nullField *> fieldWith uidParser <* nullField)
      parser "credit_to_project"  = CreditToProject <$> (nullField *> nullField *> fieldWith pidParser)

[28.2201]

[28.2409]

      parser "credit_to_user"     = CreditToUser    <$> (nullField *> uidParser <* nullField)
      parser "credit_to_project"  = CreditToProject <$> (nullField *> nullField *> pidParser)

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 102 [26.456]
∅:D[12.402] → [27.336:403]
∅:D[33.1731] → [27.336:403]
∅:D[30.1967] → [27.336:403]
B:BD[27.336] → [27.336:403]
```
           <*> (fieldWith eventTypeParser <*> fieldWith utcParser)
```
[12.402]
[27.403]
```
           <*> (fieldWith eventTypeParser <*> utcParser)
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 107 [26.456]
∅:D[30.1988] → [15.352:383]
B:BD[27.489] → [15.352:383]
B:BD[15.383] → [30.1989:2020]
```
  (,,) <$> fieldWith pidParser
       <*> fieldWith uidParser
```
[30.1988]
[32.95]
```
  (,,) <$> pidParser
       <*> uidParser
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 113 [26.456]

B:BD[30.2039] → [28.2657:2873]

  A.Auction <$> fieldWith pidParser
            <*> fieldWith uidParser
            <*> fieldWith utcParser
            <*> fieldWith btcParser
            <*> fieldWith utcParser
            <*> fieldWith utcParser

[30.2039]

[26.2729]

  A.Auction <$> pidParser
            <*> uidParser
            <*> utcParser
            <*> btcParser
            <*> utcParser
            <*> utcParser

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

B:BD[30.2052] → [28.2904:3036]

  A.Bid <$> fieldWith uidParser
        <*> fieldWith secondsParser
        <*> fieldWith btcParser
        <*> fieldWith utcParser

[30.2052]

[26.2828]

  A.Bid <$> uidParser
        <*> (Seconds <$> field)
        <*> btcParser
        <*> utcParser

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 129 [26.456]
∅:D[30.2160] → [27.922:958]
B:BD[27.922] → [27.922:958]
```
  User <$> fieldWith usernameParser
```
[30.2160]
[3.3132]
```
  User <$> (UserName <$> field)
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 135 [26.456]
B:BD[30.2177] → [30.2177:2207]
```
  (,) <$> fieldWith uidParser
```
[30.2177]
[27.1094]
```
  (,) <$> uidParser
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 141 [26.456]

B:BD[28.3097] → [28.3097:3169]

            <*> fieldWith utcParser
            <*> fieldWith uidParser

[28.3097]

[28.3169]

            <*> utcParser
            <*> uidParser

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 147 [26.456]

B:BD[30.2298] → [28.3254:3412]

  P.Invitation <$> fieldWith pidParser
               <*> fieldWith uidParser
               <*> fieldWith emailParser
               <*> fieldWith utcParser

[30.2298]

[28.3412]

  P.Invitation <$> pidParser
               <*> uidParser
               <*> fmap Email field
               <*> utcParser

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 155 [26.456]
B:BD[30.2318] → [30.2318:2348]
```
  (,) <$> fieldWith pidParser
```
[30.2318]
[27.1337]
```
  (,) <$> pidParser
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 158 [26.456]
B:BD[28.3459] → [28.3459:3499]
```
billableParser :: RowParser BI.Billable
```
[28.3459]
[28.3499]
```
billableParser :: RowParser B.Billable
```

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

B:BD[28.3516] → [28.3516:3748]

  BI.Billable <$> fieldWith pidParser
              <*> fieldWith uidParser
              <*> field
              <*> field
              <*> recurrenceParser
              <*> fieldWith btcParser
              <*> (Days <$> field)

[28.3516]

[35.293]

  B.Billable <$> pidParser
             <*> uidParser
             <*> field
             <*> field
             <*> recurrenceParser
             <*> btcParser
             <*> (Days <$> field)
             <*> fieldWith (optionalField nominalDiffTimeParser)
recurrenceParser :: RowParser B.Recurrence
recurrenceParser =
  let prec :: Text -> RowParser B.Recurrence
      prec "annually"    = nullField *> pure B.Annually
      prec "monthly"     = B.Monthly <$> field
      prec "semimonthly" = nullField *> pure B.SemiMonthly
      prec "weekly"      = B.Weekly <$> field
      prec "onetime"     = nullField *> pure B.OneTime
      prec _             = empty
  in  field >>= prec
subscriptionParser :: RowParser B.Subscription
subscriptionParser = 
  B.Subscription <$> (B.BillableId <$> field)
                 <*> (toThyme <$> field)
                 <*> ((fmap toThyme) <$> field)

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

B:BD[29.264] → [2.1414:1456]

∅:D[2.1456] → [29.307:384]

B:BD[29.307] → [29.307:384]

storeEvent (CreateSubscription uid bid) =
  Just $ storeEventJSON uid "create_subscription" (subscriptionJSON uid bid)

[29.264]

[29.384]

storeEvent (CreateSubscription uid s) =
  Just $ storeEventJSON uid "create_subscription" (createSubscriptionJSON uid s)

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

B:BD[36.426] → [28.4053:4161]

updateCache :: DBOp a -> QDBM a
updateCache (CreateEvent (P.ProjectId pid) (UserId uid) (LogEntry c e m)) =

[36.426]

[28.4161]

pgEval :: DBOp a -> QDBM a
pgEval (CreateEvent (P.ProjectId pid) (UserId uid) (LogEntry c e m)) =

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 260 [26.456]
B:BD[26.3406] → [28.5260:5300]
```
updateCache (FindEvent (EventId eid)) =
```
[26.3406]
[28.5300]
```
pgEval (FindEvent (EventId eid)) =
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 268 [26.456]

B:BD[14.1084] → [28.5556:5619]

updateCache (FindEvents (P.ProjectId pid) (UserId uid) ival) =

[14.1084]

[28.5619]

pgEval (FindEvents (P.ProjectId pid) (UserId uid) ival) =

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 284 [26.456]
B:BD[37.1952] → [28.6356:6415]
```
updateCache (AmendEvent (EventId eid) (TimeChange mt t)) =
```
[37.1952]
[28.6415]
```
pgEval (AmendEvent (EventId eid) (TimeChange mt t)) =
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 291 [26.456]

B:BD[30.2904] → [28.6610:6673]

updateCache (AmendEvent (EventId eid) (CreditToChange mt c)) =

[30.2904]

[28.6673]

pgEval (AmendEvent (EventId eid) (CreditToChange mt c)) =

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 314 [26.456]

B:BD[26.4598] → [28.7588:7651]

updateCache (AmendEvent (EventId eid) (MetadataChange mt v)) =

[26.4598]

[28.7651]

pgEval (AmendEvent (EventId eid) (MetadataChange mt v)) =

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 321 [26.456]
B:BD[26.4862] → [28.7843:7894]
```
updateCache (ReadWorkIndex (P.ProjectId pid)) = do
```
[26.4862]
[28.7894]
```
pgEval (ReadWorkIndex (P.ProjectId pid)) = do
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 327 [26.456]
B:BD[26.5183] → [28.8078:8112]
```
updateCache (CreateAuction auc) =
```
[26.5183]
[28.8112]
```
pgEval (CreateAuction auc) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 337 [26.456]
B:BD[26.5425] → [28.8415:8449]
```
updateCache (FindAuction aucId) =
```
[26.5425]
[28.8449]
```
pgEval (FindAuction aucId) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 342 [26.456]
B:BD[26.5525] → [28.8633:8683]
```
updateCache (CreateBid (A.AuctionId aucId) bid) =
```
[26.5525]
[28.8683]
```
pgEval (CreateBid (A.AuctionId aucId) bid) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 353 [26.456]
B:BD[35.668] → [28.9008:9039]
```
updateCache (ReadBids aucId) =
```
[35.668]
[28.9039]
```
pgEval (ReadBids aucId) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 358 [26.456]
B:BD[38.705] → [28.9181:9214]
```
updateCache (CreateUser user') =
```
[38.705]
[28.9214]
```
pgEval (CreateUser user') =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 368 [26.456]
B:BD[31.1369] → [28.9517:9555]
```
updateCache (FindUser (UserId uid)) =
```
[31.1369]
[28.9555]
```
pgEval (FindUser (UserId uid)) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 373 [26.456]
B:BD[7.3219] → [28.9664:9708]
```
updateCache (FindUserByName (UserName h)) =
```
[7.3219]
[28.9708]
```
pgEval (FindUserByName (UserName h)) =
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 378 [26.456]

B:BD[28.9826] → [28.9826:9905]

updateCache (CreateInvitation (P.ProjectId pid) (UserId uid) (Email e) t) = do

[28.9826]

[28.9905]

pgEval (CreateInvitation (P.ProjectId pid) (UserId uid) (Email e) t) = do

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 386 [26.456]
B:BD[28.10161] → [28.10161:10195]
```
updateCache (FindInvitation ic) =
```
[28.10161]
[28.10195]
```
pgEval (FindInvitation ic) =
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 392 [26.456]

B:BD[27.3742] → [28.10400:10469]

updateCache (AcceptInvitation (UserId uid) ic t) = transactQDBM $ do

[27.3742]

[28.10469]

pgEval (AcceptInvitation (UserId uid) ic t) = transactQDBM $ do

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 403 [26.456]
B:BD[7.3836] → [28.10844:10876]
```
updateCache (CreateProject p) =
```
[7.3836]
[28.10876]
```
pgEval (CreateProject p) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 409 [26.456]
B:BD[7.4291] → [28.11144:11190]
```
updateCache (FindProject (P.ProjectId pid)) =
```
[7.4291]
[28.11190]
```
pgEval (FindProject (P.ProjectId pid)) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 414 [26.456]
B:BD[35.947] → [28.11341:11387]
```
updateCache (FindUserProjects (UserId uid)) =
```
[35.947]
[28.11387]
```
pgEval (FindUserProjects (UserId uid)) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 422 [26.456]
B:BD[35.1014] → [28.11658:11714]
```
updateCache (AddUserToProject pid current new) = void $
```
[35.1014]
[28.11714]
```
pgEval (AddUserToProject pid current new) = void $
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 427 [26.456]
B:BD[35.1043] → [29.855:900]
```
updateCache dbop @ (CreateBillable _ b) = do
```
[35.1043]
[28.11916]
```
pgEval dbop @ (CreateBillable _ b) = do
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 429 [26.456]
B:BD[28.11949] → [28.11949:11973]
```
  pinsert BI.BillableId
```
[28.11949]
[28.11973]
```
  pinsert B.BillableId
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 433 [26.456]
B:BD[28.12171] → [28.12171:12210]
```
    ( b ^. (BI.project . P._ProjectId)
```
[28.12171]
[28.12210]
```
    ( b ^. (B.project . P._ProjectId)
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 435 [26.456]

B:BD[28.12236] → [28.12236:12451]

    , b ^. BI.name
    , b ^. BI.description
    , b ^. (BI.recurrence . to BI.recurrenceName)
    , b ^. (BI.recurrence . to BI.recurrenceCount)
    , b ^. (BI.amount . satoshi)
    , b ^. (BI.gracePeriod . _Days)

[28.12236]

[28.12451]

    , b ^. B.name
    , b ^. B.description
    , b ^. (B.recurrence . to B.recurrenceName)
    , b ^. (B.recurrence . to B.recurrenceCount)
    , b ^. (B.amount . satoshi)
    , b ^. (B.gracePeriod . _Days)

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 443 [26.456]
B:BD[3.3719] → [28.12458:12491]
```
updateCache (ReadBillable bid) =
```
[3.3719]
[28.12491]
```
pgEval (ReadBillable bid) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 449 [26.456]
B:BD[28.12769] → [28.12769:12804]
```
    (Only (bid ^. BI._BillableId))
```
[28.12769]
[3.3942]
```
    (Only (bid ^. B._BillableId))
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 451 [26.456]
B:BD[3.3943] → [12.523:576]
```
updateCache dbop @ (CreateSubscription uid bid) = do
```
[3.3943]
[12.576]
```
pgEval dbop @ (CreateSubscription uid s) = do
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 453 [26.456]
B:BD[12.609] → [12.609:637]
```
  pinsert BI.SubscriptionId
```
[12.609]
[12.637]
```
  pinsert B.SubscriptionId
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 457 [26.456]

B:BD[12.746] → [12.746:811]

    (uid ^. _UserId, bid ^. BI._BillableId, eventId ^. _EventId)

[12.746]

[12.811]

    (uid ^. _UserId, s ^. (B.billable . B._BillableId), eventId ^. _EventId)
pgEval (FindSubscriptions uid pid) = 
  pquery ((,) <$> subscriptionIdParser <*> subscriptionParser)
    "SELECT id, billable_id, start_date, end_date \
    \FROM subscriptions s \
    \JOIN billables b ON b.id = s.billable_id \
    \WHERE s.user_id = ? \
    \AND b.project_id = ?"
    (uid ^. _UserId, pid ^. P._ProjectId)

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 468 [26.456]
B:BD[12.812] → [29.901:954]
```
updateCache dbop @ (CreatePaymentRequest _ req) = do
```
[12.812]
[12.863]
```
pgEval dbop @ (CreatePaymentRequest _ req) = do
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 475 [26.456]
B:BD[12.1044] → [12.1044:1093]
```
    ( req ^. (subscription . BI._SubscriptionId)
```
[12.1044]
[2.1540]
```
    ( req ^. (subscription . B._SubscriptionId)
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 480 [26.456]
∅:D[2.1568] → [29.955:1001]
B:BD[12.1189] → [29.955:1001]
```
updateCache dbop @ (CreatePayment _ req) = do
```
[2.1568]
[39.48]
```
pgEval dbop @ (CreatePayment _ req) = do
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 491 [26.456]
B:BD[35.1045] → [28.12989:13039]
```
updateCache (RaiseDBError err _) = raiseError err
```
[35.1045]
[3.3944]
```
pgEval (RaiseDBError err _) = raiseError err
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 499 [26.456]
B:BD[3.3947] → [28.13218:13272]
```
instance DBEval QDBM where
  dbEval e = updateCache e
```
[3.3947]
```
instance MonadDB QDBM where
  liftdb = pgEval
```
Insertion in lib/Aftok/Database.hs at line 2 [5.4936]
[40.39]
[40.39]
```
{-# LANGUAGE FlexibleInstances  #-}
```
Insertion in lib/Aftok/Database.hs at line 4 [5.4936]
[40.75]
[40.75]
```
{-# LANGUAGE TupleSections      #-}
```
Replacement in lib/Aftok/Database.hs at line 10 [5.4936]
B:BD[40.143] → [40.143:173]
```
import           Control.Lens
```
[40.143]
[40.173]
```
import           Control.Lens (view, (^.))
```
Replacement in lib/Aftok/Database.hs at line 18 [5.4936]
B:BD[40.333] → [3.3989:4021]
```
import           Aftok.Payments
```
[40.333]
[41.801]
```
import           Aftok.Payments.Types
```
Deletion in lib/Aftok/Database.hs at line 28 [5.4936]
B:BD[15.6105] → [15.6105:6137]
```
type DBProg a = Program DBOp a
```

Replacement in lib/Aftok/Database.hs at line 56 [5.4936]

B:BD[28.13383] → [28.13383:13451]

  CreateSubscription :: UserId -> BillableId -> DBOp SubscriptionId

[28.13383]

[3.4199]

  CreateSubscription :: UserId -> Subscription -> DBOp SubscriptionId
  FindSubscriptions :: UserId -> ProjectId -> DBOp [(SubscriptionId, Subscription)]

Replacement in lib/Aftok/Database.hs at line 78 [5.4936]

B:BD[7.5147] → [7.5147:5215]

B:BD[7.5215] → [40.421:479]

raiseOpForbidden :: UserId -> OpForbiddenReason -> DBOp x -> DBOp x
raiseOpForbidden uid r = RaiseDBError (OpForbidden uid r)

[7.5147]

[7.5274]

class (Monad m) => MonadDB (m :: * -> *) where
  liftdb :: DBOp x -> m x
instance MonadDB (Program DBOp) where
  liftdb = fc

Replacement in lib/Aftok/Database.hs at line 84 [5.4936]

B:BD[7.5275] → [42.105:146]

∅:D[42.146] → [40.480:532]

B:BD[7.5316] → [40.480:532]

raiseSubjectNotFound :: DBOp y -> DBOp x
raiseSubjectNotFound = RaiseDBError SubjectNotFound

[7.5275]

[15.7338]

raiseOpForbidden :: (MonadDB m) => UserId -> OpForbiddenReason -> DBOp x -> m x
raiseOpForbidden uid r op = liftdb $ RaiseDBError (OpForbidden uid r) op

Replacement in lib/Aftok/Database.hs at line 87 [5.4936]

B:BD[15.7339] → [15.7339:7386]

class DBEval m where
  dbEval :: DBOp a -> m a

[15.7339]

[15.7386]

raiseSubjectNotFound :: (MonadDB m) => DBOp y -> m x
raiseSubjectNotFound op = liftdb $ RaiseDBError SubjectNotFound op

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

B:BD[15.7400] → [15.7400:7465]

createUser :: User -> DBProg UserId
createUser = fc . CreateUser

[15.7400]

[15.7465]

createUser :: (MonadDB m) => User -> m UserId
createUser = liftdb . CreateUser

Replacement in lib/Aftok/Database.hs at line 95 [5.4936]

B:BD[15.7466] → [15.7466:7533]

findUser :: UserId -> DBProg (Maybe User)
findUser = fc . FindUser

[15.7466]

[5.5044]

findUser :: (MonadDB m) => UserId -> m (Maybe User)
findUser = liftdb . FindUser

Replacement in lib/Aftok/Database.hs at line 98 [5.4936]

B:BD[5.5045] → [15.7534:7626]

findUserByName :: UserName -> DBProg (Maybe KeyedUser)
findUserByName = fc . FindUserByName

[5.5045]

[15.7626]

findUserByName :: (MonadDB m) => UserName -> m (Maybe KeyedUser)
findUserByName = liftdb . FindUserByName

Replacement in lib/Aftok/Database.hs at line 103 [5.4936]
B:BD[15.7643] → [15.7643:7688]
```
createProject :: Project -> DBProg ProjectId
```
[15.7643]
[15.7688]
```
createProject :: (MonadDB m) => Project -> m ProjectId
```
Replacement in lib/Aftok/Database.hs at line 105 [5.4936]
B:BD[15.7709] → [15.7709:7739]
```
  pid <- fc $ CreateProject p
```
[15.7709]
[4.771]
```
  pid <- liftdb $ CreateProject p
```

Replacement in lib/Aftok/Database.hs at line 109 [5.4936]

B:BD[15.7810] → [15.7810:7871]

findProject :: ProjectId -> UserId -> DBProg (Maybe Project)

[15.7810]

[15.7871]

findProject :: (MonadDB m) => ProjectId -> UserId -> m (Maybe Project)

Replacement in lib/Aftok/Database.hs at line 114 [5.4936]

∅:D[40.565] → [15.7987:8080]

B:BD[15.7987] → [15.7987:8080]

findUserProjects :: UserId -> DBProg [KeyedProject]
findUserProjects = fc . FindUserProjects

[40.565]

[15.8254]

findUserProjects :: (MonadDB m) => UserId -> m [KeyedProject]
findUserProjects = liftdb . FindUserProjects

Replacement in lib/Aftok/Database.hs at line 117 [5.4936]

B:BD[15.8255] → [15.8255:8316]

withProjectAuth :: ProjectId -> UserId -> DBOp a -> DBProg a

[15.8255]

[15.8316]

withProjectAuth :: (MonadDB m) => ProjectId -> UserId -> DBOp a -> m a

Replacement in lib/Aftok/Database.hs at line 120 [5.4936]

B:BD[15.8378] → [40.566:624]

  fc $ if any (\(pid', _) -> pid' == pid) px
    then act

[15.8378]

[7.5370]

  if any (\(pid', _) -> pid' == pid) px
    then liftdb act

Replacement in lib/Aftok/Database.hs at line 124 [5.4936]

B:BD[43.304] → [43.304:367]

checkProjectAuth :: ProjectId -> UserId -> DBOp a -> DBProg ()

[43.304]

[43.367]

checkProjectAuth :: (MonadDB m) => ProjectId -> UserId -> DBOp a -> m ()

Replacement in lib/Aftok/Database.hs at line 129 [5.4936]

B:BD[43.487] → [43.487:554]

    else void . fc $ raiseOpForbidden uid UserNotProjectMember act

[43.487]

[43.556]

    else void $ raiseOpForbidden uid UserNotProjectMember act

Replacement in lib/Aftok/Database.hs at line 131 [5.4936]

∅:D[43.557] → [7.5426:5498]

B:BD[7.5426] → [7.5426:5498]

addUserToProject :: ProjectId -> InvitingUID -> InvitedUID -> DBProg ()

[43.557]

[40.625]

addUserToProject :: (MonadDB m) => ProjectId -> InvitingUID -> InvitedUID -> m ()

Replacement in lib/Aftok/Database.hs at line 135 [5.4936]

B:BD[7.5600] → [7.5600:5692]

createInvitation :: ProjectId -> InvitingUID -> Email -> C.UTCTime -> DBProg InvitationCode

[7.5600]

[7.5692]

createInvitation :: (MonadDB m) => ProjectId -> InvitingUID -> Email -> C.UTCTime -> m InvitationCode

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

B:BD[7.5801] → [7.5801:5906]

findInvitation :: InvitationCode -> DBProg (Maybe Invitation)
findInvitation ic = fc $ FindInvitation ic

[7.5801]

[7.5906]

findInvitation :: (MonadDB m) => InvitationCode -> m (Maybe Invitation)
findInvitation ic = liftdb $ FindInvitation ic

Replacement in lib/Aftok/Database.hs at line 142 [5.4936]

B:BD[7.5907] → [44.343:413]

acceptInvitation :: UserId -> C.UTCTime -> InvitationCode-> DBProg ()

[7.5907]

[44.413]

acceptInvitation :: (MonadDB m) => UserId -> C.UTCTime -> InvitationCode-> m ()

Replacement in lib/Aftok/Database.hs at line 148 [5.4936]
∅:D[40.676] → [7.6104:6140]
B:BD[7.6104] → [7.6104:6140]
```
      fc $ raiseSubjectNotFound act
```
[40.676]
[40.677]
```
      raiseSubjectNotFound act
```
Replacement in lib/Aftok/Database.hs at line 150 [5.4936]
∅:D[40.757] → [7.6221:6275]
B:BD[7.6221] → [7.6221:6275]
```
      fc $ raiseOpForbidden uid InvitationExpired act
```
[40.757]
[40.758]
```
      raiseOpForbidden uid InvitationExpired act
```
Replacement in lib/Aftok/Database.hs at line 152 [5.4936]
∅:D[40.803] → [7.6321:6383]
B:BD[7.6321] → [7.6321:6383]
```
      fc $ raiseOpForbidden uid InvitationAlreadyAccepted act
```
[40.803]
[40.804]
```
      raiseOpForbidden uid InvitationAlreadyAccepted act
```

Replacement in lib/Aftok/Database.hs at line 159 [5.4936]

B:BD[15.8566] → [15.8566:8631]

createEvent :: ProjectId -> UserId -> LogEntry -> DBProg EventId

[15.8566]

[40.819]

createEvent :: (MonadDB m) => ProjectId -> UserId -> LogEntry -> m EventId

Replacement in lib/Aftok/Database.hs at line 162 [5.4936]

B:BD[15.8692] → [15.8692:8764]

amendEvent :: UserId -> EventId -> EventAmendment -> DBProg AmendmentId

[15.8692]

[15.8764]

amendEvent :: (MonadDB m) => UserId -> EventId -> EventAmendment -> m AmendmentId

Replacement in lib/Aftok/Database.hs at line 167 [5.4936]

B:BD[7.6586] → [7.6586:6627]

∅:D[7.6627] → [15.8934:9016]

B:BD[15.8934] → [15.8934:9016]

      missing = raiseSubjectNotFound act
  fc $ maybe missing (\(_, uid', _) -> if uid' == uid then act else forbidden) ev

[7.6586]

[35.1146]

      missing   = raiseSubjectNotFound act
  maybe missing (\(_, uid', _) -> if uid' == uid then liftdb act else forbidden) ev

Replacement in lib/Aftok/Database.hs at line 170 [5.4936]

B:BD[35.1147] → [15.9017:9097]

findEvent :: EventId -> DBProg (Maybe KeyedLogEntry)
findEvent = fc . FindEvent

[35.1147]

[27.4024]

findEvent :: (MonadDB m) => EventId -> m (Maybe KeyedLogEntry)
findEvent = liftdb . FindEvent

Replacement in lib/Aftok/Database.hs at line 173 [5.4936]

B:BD[27.4025] → [15.9098:9207]

findEvents :: ProjectId -> UserId -> Interval' -> DBProg [LogEntry]
findEvents p u i = fc $ FindEvents p u i

[27.4025]

[35.1303]

findEvents :: (MonadDB m) => ProjectId -> UserId -> Interval' -> m [LogEntry]
findEvents p u i = liftdb $ FindEvents p u i

Replacement in lib/Aftok/Database.hs at line 176 [5.4936]

B:BD[35.1304] → [15.9208:9265]

readWorkIndex :: ProjectId -> UserId -> DBProg WorkIndex

[35.1304]

[15.9265]

readWorkIndex :: (MonadDB m) => ProjectId -> UserId -> m WorkIndex

Replacement in lib/Aftok/Database.hs at line 181 [5.4936]

B:BD[4.834] → [29.1203:1261]

createBillable :: UserId -> Billable -> DBProg BillableId

[4.834]

[2.1570]

createBillable :: (MonadDB m) => UserId -> Billable -> m BillableId

Replacement in lib/Aftok/Database.hs at line 185 [5.4936]

B:BD[3.4547] → [28.13775:13829]

∅:D[28.13829] → [3.4621:4654]

B:BD[3.4621] → [3.4621:4654]

readBillable :: BillableId -> DBProg (Maybe Billable)
readBillable = fc . ReadBillable

[3.4547]

[3.4654]

readBillable :: (MonadDB m) => BillableId -> m (Maybe Billable)
readBillable = liftdb . ReadBillable

Replacement in lib/Aftok/Database.hs at line 188 [5.4936]

B:BD[3.4655] → [3.4655:4784]

B:BD[3.4787] → [3.4787:4788]

--createPaymentRequest :: BillableId -> DBProg PaymentRequestId
--createPaymentRequest bid = do
--  billable <- readBillable bid

[3.4655]

[2.1594]

findSubscriptions :: (MonadDB m) 
                  => UserId 
                  -> ProjectId 
                  -> m [(SubscriptionId, Subscription' Billable)]
findSubscriptions uid pid = do
  subscriptions <- liftdb $ FindSubscriptions uid pid
  let sub'' s = sequenceA <$> traverse readBillable s
      sub' (sid, s) = fmap (fmap (sid,)) (sub'' s)
  catMaybes <$> traverse sub' subscriptions

Replacement in lib/Aftok/Database.hs at line 198 [5.4936]
∅:D[2.1595] → [39.466:515]
B:BD[3.4788] → [39.466:515]
```
readPaymentHistory :: UserId -> DBProg [Payment]
```
[2.1595]
[3.4861]
```
readPaymentHistory :: (MonadDB m) => UserId -> m [Payment]
```
Replacement in lib/Aftok/Database.hs at line 203 [5.4936]
B:BD[35.1306] → [43.626:671]
```
createAuction :: Auction -> DBProg AuctionId
```
[35.1306]
[43.671]
```
createAuction :: (MonadDB m) => Auction -> m AuctionId
```

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

B:BD[43.767] → [43.767:828]

findAuction :: AuctionId -> UserId -> DBProg (Maybe Auction)

[43.767]

[41.841]

findAuction :: (MonadDB m) => AuctionId -> UserId -> m (Maybe Auction)

Replacement in lib/Aftok/Database.hs at line 211 [5.4936]
B:BD[43.892] → [42.179:205]
```
    maybeAuc <- fc findOp
```
[43.892]
[42.205]
```
    maybeAuc <- liftdb findOp
```

Replacement in lib/Aftok/Database.hs at line 215 [5.4936]

B:BD[42.293] → [42.293:347]

findAuction' :: AuctionId -> UserId -> DBProg Auction

[42.293]

[41.864]

findAuction' :: (MonadDB m) => AuctionId -> UserId -> m Auction

Replacement in lib/Aftok/Database.hs at line 219 [5.4936]
B:BD[42.411] → [42.411:437]
```
    maybeAuc <- fc findOp
```
[42.411]
[42.437]
```
    maybeAuc <- liftdb findOp
```

Replacement in lib/Aftok/Database.hs at line 221 [5.4936]

B:BD[42.523] → [42.523:582]

    maybe (fc $ raiseSubjectNotFound findOp) pure maybeAuc

[42.523]

[22.21]

    maybe (raiseSubjectNotFound findOp) pure maybeAuc

Replacement in lib/Aftok/Database.hs at line 223 [5.4936]

B:BD[22.22] → [3.4912:4968]

createBid :: AuctionId -> UserId -> Bid -> DBProg BidId

[22.22]

[41.888]

createBid :: (MonadDB m) => AuctionId -> UserId -> Bid -> m BidId

Replacement in lib/Aftok/Database.hs at line 228 [5.4936]

B:BD[42.650] → [41.913:964]

    fc $ if view bidTime bid > view auctionEnd auc

[42.650]

[42.702]

    if view bidTime bid > view auctionEnd auc

Replacement in lib/Aftok/Database.hs at line 230 [5.4936]
B:BD[42.756] → [42.756:776]
```
      else createOp
```
[42.756]
```
      else liftdb createOp
```
Insertion in lib/Aftok/Json.hs at line 4 [45.19]
[40.917]
[45.127]
```
{-# LANGUAGE TypeApplications   #-}
```
Insertion in lib/Aftok/Json.hs at line 33 [45.19]
[46.171]
[40.1358]
```
import           Aftok.Time
```

Insertion in lib/Aftok/Json.hs at line 181 [45.19]

[29.1836]

      , "amount"      .= (b ^. (B.amount . satoshi))
      , "gracePeriod" .= (b ^. (B.gracePeriod . _Days))
      , "requestExpiryPeriod" .= (C.toSeconds' <$> (b ^. B.requestExpiryPeriod))

Replacement in lib/Aftok/Json.hs at line 193 [45.19]

B:BD[27.5682] → [29.2237:2289]

B:BD[29.2289] → [2.1925:1957]

∅:D[2.1957] → [29.2322:2422]

B:BD[29.2322] → [29.2322:2422]

subscriptionJSON :: UserId -> B.BillableId -> Value
subscriptionJSON uid bid = v1 $
  obj [ "userId"     .= tshow (uid ^. _UserId)
      , "billableId" .= tshow (bid ^. B._BillableId)

[27.5682]

[47.621]

createSubscriptionJSON :: UserId -> B.Subscription -> Value
createSubscriptionJSON uid sub = v1 $
  obj [ "user_id"     .= tshow (uid ^. _UserId)
      , "billable_id" .= tshow (sub ^. (B.billable . B._BillableId))

File addition: Payments (d--x------)
[48.679]

File addition: Types.hs (----------)

[0.10523]

{-# LANGUAGE TemplateHaskell #-}
module Aftok.Payments.Types where
import           ClassyPrelude
import           Control.Lens  (makeLenses, makePrisms)
import           Data.Thyme.Clock    as C
import           Data.UUID
import qualified Network.Bippy.Proto as P
import Aftok.Billables (SubscriptionId)
newtype PaymentRequestId = PaymentRequestId UUID deriving (Show, Eq)
makePrisms ''PaymentRequestId
newtype PaymentId = PaymentId UUID deriving (Show, Eq)
makePrisms ''PaymentId
data PaymentRequest' s = PaymentRequest
  { _subscription       :: s
  , _paymentRequest     :: P.PaymentRequest
  , _paymentRequestDate :: C.UTCTime
  }
makeLenses ''PaymentRequest'
type PaymentRequest = PaymentRequest' SubscriptionId
data Payment' r = Payment
  { _request     :: r
  , _payment     :: P.Payment
  , _paymentDate :: C.UTCTime
  }
makeLenses ''Payment'
type Payment = Payment' PaymentRequestId

Insertion in lib/Aftok/Payments.hs at line 2 [3.5686]
[3.5720]
[3.5720]
```
{-# LANGUAGE FlexibleContexts #-}
```

Replacement in lib/Aftok/Payments.hs at line 4 [3.5686]

B:BD[3.5721] → [3.5721:5749]

module Aftok.Payments where

[3.5721]

[3.5749]

module Aftok.Payments 
  ( module Aftok.Payments
  , module Aftok.Payments.Types
  ) where

Replacement in lib/Aftok/Payments.hs at line 11 [3.5686]

B:BD[3.5782] → [2.2213:2275]

import           Control.Lens        (makeLenses, makePrisms)

[3.5782]

[3.5839]

import           Control.Lens  (makeLenses, view, (%~), (^.))
import           Control.Lens.Tuple
import           Control.Monad.Except (MonadError)
import           Crypto.PubKey.RSA.Types (Error(..), PrivateKey)
import           Crypto.Random.Types (MonadRandom)

Insertion in lib/Aftok/Payments.hs at line 17 [3.5686]

[3.5840]

[2.2276]

import           Data.AffineSpace ((.+^))
import           Data.Map.Strict (assocs)

Replacement in lib/Aftok/Payments.hs at line 20 [3.5686]
∅:D[2.2318] → [3.5889:5916]
B:BD[3.5889] → [3.5889:5916]
```
import           Data.UUID
```
[2.2318]
[3.5916]
```
import           Data.Thyme.Time.Core (fromThyme)
```
Insertion in lib/Aftok/Payments.hs at line 22 [3.5686]
[3.5917]
[3.5917]
```
import qualified Network.Bippy as B
```

Insertion in lib/Aftok/Payments.hs at line 24 [3.5686]

[3.5959]

import qualified Network.Bippy.Types as BT 
import           Network.Haskoin.Script (ScriptOutput(..))
import           Network.URI

Insertion in lib/Aftok/Payments.hs at line 28 [3.5686]

[3.5960]

[2.2319]

import           Aftok         (UserId, BtcAddr(..), userAddress, _BtcAddr)
import           Aftok.Database

Insertion in lib/Aftok/Payments.hs at line 31 [3.5686]

[2.2352]

[39.610]

import           Aftok.Payments.Types
import           Aftok.Project (ProjectId, depf)
import qualified Aftok.TimeLog as TL
import           Aftok.Types (satoshi)
data BillingConfig = BillingConfig
  { _network :: BT.Network
  , _signingKey :: PrivateKey
  , _pkiData :: BT.PKIData
  }
makeLenses ''BillingConfig
createPaymentRequests :: (MonadRandom m, MonadReader BillingConfig m, MonadError Error m, MonadDB m) => 
                         C.UTCTime -- timestamp for payment request creation
                      -> (Subscription' Billable -> m (Maybe Text))       -- generator user memo
                      -> (Subscription' Billable -> m (Maybe URI))        -- generator for payment response URL
                      -> (Subscription' Billable -> m (Maybe ByteString)) -- generator for merchant payload
                      -> UserId    -- user responsible for payment
                      -> ProjectId -- project whose worklog is to be paid out to
                      -> m [PaymentRequestId]
createPaymentRequests t memogen urigen plgen custId pid = do
  subscriptions <- findSubscriptions custId pid
  cfg <- ask
  let createPaymentDetails' s = do
        memo <- memogen s
        uri <- urigen s
        payload <- plgen s
        createPaymentDetails t memo uri payload (s ^. billable)

Replacement in lib/Aftok/Payments.hs at line 61 [3.5686]

∅:D[39.611] → [3.5960:6029]

B:BD[3.5960] → [3.5960:6029]

B:BD[3.6029] → [39.612:642]

newtype PaymentRequestId = PaymentRequestId UUID deriving (Show, Eq)
makePrisms ''PaymentRequestId

[39.611]

[3.6029]

      createPaymentRequest (sid, s) = do
        details <- createPaymentDetails' s 
        req <- B.createPaymentRequest (cfg ^. signingKey) (cfg ^. pkiData) details
        liftdb $ CreatePaymentRequest custId (PaymentRequest sid req t)
  traverse createPaymentRequest subscriptions
createPaymentDetails :: (MonadRandom m, MonadReader BillingConfig m, MonadDB m) =>
                        C.UTCTime         -- timestamp for payment request creation
                     -> Maybe Text        -- user memo
                     -> Maybe URI         -- payment response URL
                     -> Maybe ByteString  -- merchant payload
                     -> Billable 
                     -> m P.PaymentDetails
createPaymentDetails t memo uri payload b = do
  payouts <- getProjectPayouts t (b ^. project)
  outputs <- createPayoutsOutputs t (b ^. amount) payouts
  let expiry = (BT.Expiry . fromThyme . (t .+^)) <$> (b ^. requestExpiryPeriod)
  cfg <- ask
  pure $ B.createPaymentDetails (cfg ^. network) outputs (fromThyme t) expiry memo uri payload
getProjectPayouts :: (MonadDB m) => C.UTCTime -> ProjectId -> m TL.Payouts
getProjectPayouts ptime pid = do
  project' <- 
    let projectOp = FindProject pid
    in  maybe (raiseSubjectNotFound projectOp) pure =<< liftdb projectOp
  widx <- liftdb $ ReadWorkIndex pid
  pure $ TL.payouts (TL.toDepF $ project' ^. depf) ptime widx
createPayoutsOutputs :: (MonadDB m) => C.UTCTime -> BT.Satoshi -> TL.Payouts -> m [BT.Output]
createPayoutsOutputs t amt p = 
  let payoutFractions :: [(TL.CreditTo, BT.Satoshi)]
      payoutFractions = (_2 %~ outputAmount amt) <$> assocs (p ^. TL._Payouts)
  in  join <$> traverse (uncurry (createOutputs t)) payoutFractions

Replacement in lib/Aftok/Payments.hs at line 100 [3.5686]

B:BD[3.6030] → [3.6030:6085]

B:BD[3.6085] → [39.643:666]

newtype PaymentId = PaymentId UUID deriving (Show, Eq)
makePrisms ''PaymentId

[3.6030]

[3.6085]

createOutputs :: (MonadDB m) => C.UTCTime -> TL.CreditTo -> BT.Satoshi -> m [BT.Output]
createOutputs _ (TL.CreditToAddress (BtcAddr addr)) amt = 
  pure $ [BT.Output amt (PayPKHash addr)]

Replacement in lib/Aftok/Payments.hs at line 104 [3.5686]

B:BD[3.6086] → [47.1263:1303]

B:BD[47.1303] → [2.2353:2426]

∅:D[2.2426] → [3.6199:6236]

B:BD[3.6199] → [3.6199:6236]

B:BD[3.6255] → [3.6255:6259]

B:BD[3.6259] → [39.715:744]

data PaymentRequest' s = PaymentRequest
  { _subscription       :: s
  , _paymentRequest     :: P.PaymentRequest
  , _paymentRequestDate :: C.UTCTime
  }
makeLenses ''PaymentRequest'

[3.6086]

[3.6287]

createOutputs _ (TL.CreditToUser uid) amt = do
  addrMay <- (>>= view userAddress) <$> findUser uid
  let createOutput addr = BT.Output amt (PayPKHash (addr ^. _BtcAddr))
  pure . maybeToList $ createOutput <$> addrMay

Replacement in lib/Aftok/Payments.hs at line 109 [3.5686]

B:BD[3.6288] → [39.745:798]

type PaymentRequest = PaymentRequest' SubscriptionId

[3.6288]

[39.798]

createOutputs t (TL.CreditToProject pid) amt = do
  payouts <- getProjectPayouts t pid
  createPayoutsOutputs t amt payouts

Deletion in lib/Aftok/Payments.hs at line 113 [3.5686]
B:BD[39.799] → [47.1304:1330]
B:BD[47.1330] → [2.2427:2479]
∅:D[2.2479] → [3.6359:6389]
B:BD[3.6359] → [3.6359:6389]
B:BD[3.6405] → [3.6405:6409]
B:BD[3.6409] → [39.833:855]
```
data Payment' r = Payment
  { _request     :: r
  , _payment     :: P.Payment
  , _paymentDate :: C.UTCTime
  }
makeLenses ''Payment'
```

Replacement in lib/Aftok/Payments.hs at line 114 [3.5686]

B:BD[39.856] → [2.2480:2521]

type Payment = Payment' PaymentRequestId

[39.856]

outputAmount :: BT.Satoshi -> Rational -> BT.Satoshi
outputAmount i r = BT.Satoshi . round $ toRational (i ^. satoshi) * r

Insertion in lib/Aftok/Project.hs at line 8 [4.1031]

[4.1198]

[3.6468]

import           Crypto.Random.Types        (MonadRandom, getRandomBytes)

Deletion in lib/Aftok/Project.hs at line 13 [4.1031]
B:BD[4.1325] → [3.6470:6471]
∅:D[3.6471] → [4.1325:1357]
B:BD[4.1325] → [4.1325:1357]
```
import           OpenSSL.Random
```
Insertion in lib/Aftok/Project.hs at line 20 [4.1031]
[4.1485]
[4.1485]

Replacement in lib/Aftok/Project.hs at line 32 [4.1031]

B:BD[4.1766] → [4.1766:1849]

randomInvCode :: IO InvitationCode
randomInvCode = InvitationCode <$> randBytes 32

[4.1766]

[4.1849]

randomInvCode :: (MonadRandom m) => m InvitationCode
randomInvCode = InvitationCode <$> getRandomBytes 32

Replacement in lib/Aftok/TimeLog.hs at line 120 [49.846]

B:BD[19.1422] → [19.1422:1502]

workCredit :: (Functor f, Foldable f) => DepF -> C.UTCTime -> f Interval -> NDT

[19.1422]

[15.9530]

workCredit :: (Foldable f) => DepF -> C.UTCTime -> f Interval -> NDT

Replacement in lib/Aftok/TimeLog.hs at line 130 [49.846]
∅:D[17.652] → [50.876:960]
∅:D[30.4871] → [50.876:960]
B:BD[50.876] → [50.876:960]
```
  let addIntervalDiff :: (Functor f, Foldable f) => NDT -> f Interval -> (NDT, NDT)
```
[30.4871]
[30.4872]
```
  let addIntervalDiff :: (Foldable f) => NDT -> f Interval -> (NDT, NDT)
```
Insertion in lib/Aftok/Util.hs at line 1 [15.10061]
[15.10061]
[15.10062]
```
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
```

Replacement in lib/Aftok/Util.hs at line 11 [15.10061]

B:BD[15.10200] → [15.10200:10236]

type Program f a = F (Coyoneda f) a

[15.10200]

[15.10236]

newtype Program (f :: * -> *) (a :: *) = Program 
  { runProgram :: F (Coyoneda f) a }
  deriving (Functor, Applicative, Monad)

Replacement in lib/Aftok/Util.hs at line 19 [15.10061]
B:BD[15.10423] → [15.10423:10442]
```
  in  iterM eval p
```
[15.10423]
[15.10442]
```
  in  iterM eval (runProgram p)
```
Replacement in lib/Aftok/Util.hs at line 22 [15.10061]
B:BD[15.10468] → [15.10468:10494]
```
fc = liftF . liftCoyoneda
```
[15.10468]
[3.6817]
```
fc = Program . liftF . liftCoyoneda
```

Replacement in migrations/2016-12-31_03-45-17_create-payments.txt at line 49 [3.7446]

B:BD[3.8976] → [3.8976:9031]

    event_id uuid not null references aftok_events(id)

[3.8976]

[3.9031]

    event_id uuid not null references aftok_events(id),
    start_date date not null,
    end_date date null

Insertion in server/Aftok/QConfig.hs at line 1 [51.4500]
[51.4500]
[51.4501]
```
{-# LANGUAGE TypeApplications #-}
```
Insertion in server/Aftok/QConfig.hs at line 9 [51.4500]
[30.6698]
[30.6698]
```
import qualified Network.Bippy.Types           as B
```
Insertion in server/Aftok/QConfig.hs at line 26 [51.4500]
[30.7190]
[30.7190]
```
  , btcConfig     :: BtcConfig
```
Insertion in server/Aftok/QConfig.hs at line 37 [51.4500]
[51.5085]
[51.5085]
```
data BtcConfig = BtcConfig 
  { btcNetwork :: B.Network }
```
Insertion in server/Aftok/QConfig.hs at line 55 [51.4500]
[25.572]
[52.3]
```
          <*> readBtcConfig cfg
```

Replacement in server/Aftok/QConfig.hs at line 65 [51.4500]

B:BD[51.5812] → [51.5812:5887]

baseSnapConfig :: MonadSnap m => QConfig -> SC.Config m a -> SC.Config m a

[51.5812]

[30.7525]

readBtcConfig :: CT.Config -> IO BtcConfig
readBtcConfig cfg = 
  let parseNetwork :: String -> B.Network
      parseNetwork "main" = B.MainNet
      parseNetwork _ = B.TestNet
  in  (BtcConfig . parseNetwork) <$> C.require cfg "network"
baseSnapConfig :: QConfig -> SC.Config m a -> SC.Config m a

Insertion in server/Aftok/QConfig.hs at line 82 [51.4500]
[51.6294]
Replacement in server/Aftok/Snaplet/Auctions.hs at line 22 [4.2441]
B:BD[4.2895] → [4.2895:2926]
```
import           Aftok.Snaplet
```
[4.2895]
[4.2926]
```
import           Aftok.Snaplet        as S
```
Replacement in server/Aftok/Snaplet/Auctions.hs at line 25 [4.2441]
B:BD[4.2963] → [46.964:986]
```
import           Snap
```
[4.2963]
[4.2993]
```
import           Snap.Snaplet               as S
```
Replacement in server/Aftok/Snaplet/Auctions.hs at line 41 [4.2441]
B:BD[4.3307] → [4.3307:3357]
```
auctionCreateHandler :: Handler App App AuctionId
```
[4.3307]
[4.3357]
```
auctionCreateHandler :: S.Handler App App AuctionId
```
Replacement in server/Aftok/Snaplet/Auctions.hs at line 51 [4.2441]
B:BD[46.988] → [46.988:1033]
```
auctionGetHandler :: Handler App App Auction
```
[46.988]
[46.1033]
```
auctionGetHandler :: S.Handler App App Auction
```
Replacement in server/Aftok/Snaplet/Auctions.hs at line 58 [4.2441]
B:BD[22.1246] → [22.1246:1289]
```
auctionBidHandler :: Handler App App BidId
```
[22.1246]
[22.1289]
```
auctionBidHandler :: S.Handler App App BidId
```
Replacement in server/Aftok/Snaplet/Auth.hs at line 17 [53.203]
B:BD[30.7978] → [30.7978:8008]
```
import           Snap.Snaplet
```
[30.7978]
[30.8009]
```
import           Snap.Snaplet               as S
```
Replacement in server/Aftok/Snaplet/Auth.hs at line 20 [53.203]
B:BD[53.644] → [30.8060:8104]
```
requireLogin :: Handler App App AU.AuthUser
```
[53.644]
[53.1209]
```
requireLogin :: S.Handler App App AU.AuthUser
```
Replacement in server/Aftok/Snaplet/Auth.hs at line 28 [53.203]
B:BD[53.1540] → [30.8204:8247]
```
requireUser :: Handler App App AU.AuthUser
```
[53.1540]
[30.8247]
```
requireUser :: S.Handler App App AU.AuthUser
```
Replacement in server/Aftok/Snaplet/Auth.hs at line 33 [53.203]
B:BD[53.1683] → [53.1683:1723]
```
requireUserId :: Handler App App UserId
```
[53.1683]
[53.1723]
```
requireUserId :: S.Handler App App UserId
```
Replacement in server/Aftok/Snaplet/Payments.hs at line 11 [3.9762]
B:BD[3.9959] → [2.2951:2992]
∅:D[2.2992] → [3.10001:10028]
B:BD[3.10001] → [3.10001:10028]
```
requestPaymentHandler :: Handler App App
requestPaymentHandler = do
```
[3.9959]
[3.10028]
```
import           Aftok.QConfig
requestPaymentHandler :: QConfig -> Handler App App
requestPaymentHandler cfg = do
```

Replacement in server/Aftok/Snaplet/Payments.hs at line 19 [3.9762]

B:BD[3.10163] → [3.10163:10265]

B:BD[3.10265] → [2.2993:3022]

  payouts <- snapEval $ fc (ReadWorkIndex pid)
  pure $ payouts (toDepF $ project ^. depf) ptime widx
  -- look up the outstanding

[3.10163]

[3.10295]

  widx <- snapEval $ fc (ReadWorkIndex pid)
  -- look up outstanding subscriptions the user has for this project
  -- determine which subscriptions need to be paid
  -- create a payment request for each subscription

Insertion in server/Aftok/Snaplet/Payments.hs at line 24 [3.9762]
[3.10307]
[3.10307]
```
  
```
Insertion in server/Aftok/Snaplet/Payments.hs at line 27 [3.9762]
[3.10308]
Replacement in server/Aftok/Snaplet/Projects.hs at line 30 [13.2363]
B:BD[40.2624] → [40.2624:2654]
```
import           Snap.Snaplet
```
[40.2624]
[13.2725]
```
import           Snap.Snaplet               as S
```
Replacement in server/Aftok/Snaplet/Projects.hs at line 38 [13.2363]
B:BD[13.3056] → [13.3056:3106]
```
projectCreateHandler :: Handler App App ProjectId
```
[13.2915]
[13.3106]
```
projectCreateHandler :: S.Handler App App ProjectId
```
Replacement in server/Aftok/Snaplet/Projects.hs at line 46 [13.2363]
B:BD[13.3443] → [15.12241:12294]
```
projectListHandler :: Handler App App [KeyedProject]
```
[13.3443]
[54.1433]
```
projectListHandler :: S.Handler App App [KeyedProject]
```
Replacement in server/Aftok/Snaplet/Projects.hs at line 51 [13.2363]
B:BD[54.1564] → [35.3401:3446]
```
projectGetHandler :: Handler App App Project
```
[54.1564]
[35.3446]
```
projectGetHandler :: S.Handler App App Project
```
Replacement in server/Aftok/Snaplet/Projects.hs at line 58 [13.2363]
B:BD[7.8937] → [7.8937:8991]
```
projectInviteHandler :: QConfig -> Handler App App ()
```
[7.8937]
[7.8991]
```
projectInviteHandler :: QConfig -> S.Handler App App ()
```
Replacement in server/Aftok/Snaplet/Users.hs at line 22 [55.3234]
B:BD[30.8941] → [30.8941:8971]
```
import           Snap.Snaplet
```
[30.8941]
[30.8971]
```
import           Snap.Snaplet       as S
```
Replacement in server/Aftok/Snaplet/Users.hs at line 49 [55.3234]
B:BD[55.4425] → [7.10962:11004]
```
registerHandler :: Handler App App UserId
```
[55.4425]
[56.657]
```
registerHandler :: S.Handler App App UserId
```
Replacement in server/Aftok/Snaplet/Users.hs at line 63 [55.3234]
B:BD[44.585] → [44.585:631]
```
acceptInvitationHandler :: Handler App App ()
```
[44.585]
[44.631]
```
acceptInvitationHandler :: S.Handler App App ()
```
Replacement in server/Aftok/Snaplet/WorkLog.hs at line 23 [55.5424]
B:BD[30.10091] → [30.10091:10121]
```
import           Snap.Snaplet
```
[30.10091]
[55.5830]
```
import           Snap.Snaplet       as S
```
Replacement in server/Aftok/Snaplet/WorkLog.hs at line 25 [55.5424]
∅:D[27.8282] → [57.3150:3219]
B:BD[55.5831] → [57.3150:3219]
```
logWorkHandler :: (C.UTCTime -> LogEvent) -> Handler App App EventId
```
[55.5831]
[30.10122]
```
logWorkHandler :: (C.UTCTime -> LogEvent) -> S.Handler App App EventId
```

Replacement in server/Aftok/Snaplet/WorkLog.hs at line 35 [55.5424]

B:BD[58.571] → [58.571:643]

logWorkBTCHandler :: (C.UTCTime -> LogEvent) -> Handler App App EventId

[58.571]

[58.643]

logWorkBTCHandler :: (C.UTCTime -> LogEvent) -> S.Handler App App EventId

Replacement in server/Aftok/Snaplet/WorkLog.hs at line 49 [55.5424]
B:BD[55.6348] → [54.1566:1618]
```
loggedIntervalsHandler :: Handler App App WorkIndex
```
[55.6348]
[53.3428]
```
loggedIntervalsHandler :: S.Handler App App WorkIndex
```
Replacement in server/Aftok/Snaplet/WorkLog.hs at line 55 [55.5424]
B:BD[55.6632] → [14.4859:4907]
```
logEntriesHandler :: Handler App App [LogEntry]
```
[55.6632]
[14.4907]
```
logEntriesHandler :: S.Handler App App [LogEntry]
```
Replacement in server/Aftok/Snaplet/WorkLog.hs at line 67 [55.5424]
∅:D[14.5386] → [54.1662:1704]
B:BD[55.6632] → [54.1662:1704]
```
payoutsHandler :: Handler App App Payouts
```
[14.5386]
[30.10183]
```
payoutsHandler :: S.Handler App App Payouts
```
Replacement in server/Aftok/Snaplet/WorkLog.hs at line 77 [55.5424]
B:BD[53.3782] → [27.8683:8732]
```
amendEventHandler :: Handler App App AmendmentId
```
[53.3782]
[27.8732]
```
amendEventHandler :: S.Handler App App AmendmentId
```
Replacement in server/Aftok/Snaplet.hs at line 21 [55.1088]
B:BD[30.10882] → [30.10882:10912]
```
import           Snap.Snaplet
```
[30.10882]
[30.10912]
```
import           Snap.Snaplet                  as S
```
Replacement in server/Aftok/Snaplet.hs at line 33 [55.1088]
B:BD[55.1864] → [55.1864:1907]
```
instance HasPostgres (Handler b App) where
```
[55.1864]
[7.11449]
```
instance HasPostgres (S.Handler b App) where
```

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

B:BD[55.2007] → [7.11545:11605]

snapEval :: (MonadSnap m, HasPostgres m) => DBProg a -> m a

[55.2007]

[7.11605]

snapEval :: (MonadSnap m, HasPostgres m) => Program DBOp a -> m a

Replacement in server/Aftok/Snaplet.hs at line 46 [55.1088]

B:BD[7.11873] → [7.11873:11945]

  e <- liftPG $ \conn -> runEitherT (runQDBM conn $ interpret dbEval p)

[7.11873]

[7.11945]

  e <- liftPG $ \conn -> liftIO $ runEitherT (runQDBM conn $ interpret liftdb p)

Replacement in server/Aftok/Snaplet.hs at line 70 [55.1088]

B:BD[27.9524] → [27.9524:9648]

readRequestJSON :: MonadSnap m => Int64 -> m A.Value
readRequestJSON i = do
  requestBody <- A.decode <$> readRequestBody i

[27.9524]

[27.9648]

readRequestJSON :: MonadSnap m => Word64 -> m A.Value
readRequestJSON len = do
  requestBody <- A.decode <$> readRequestBody len

Replacement in server/Main.hs at line 35 [59.5188]

∅:D[30.11874] → [7.12437:12521]

B:BD[26.8568] → [7.12437:12521]

           initCookieSessionManager (authSiteKey cfg) "quookie" (cookieTimeout cfg)

[30.11874]

[7.12521]

           initCookieSessionManager (authSiteKey cfg) "quookie" (Just "aftok.com") (cookieTimeout cfg)

File addition: stack-deps.yaml (----------)

[60.2]

---
- Boolean-0.2.3
- HUnit-1.3.1.2
- MemoTrie-0.6.4
- MonadRandom-0.4.2.3
- NumInstances-1.4
- QuickCheck-2.8.2
- RSA-2.2.0
- ReadArgs-1.2.3
- SHA-1.6.4.2
- StateVar-1.1.0.4
- adjunctions-4.3
- aeson-0.11.2.1
- aftok-0.1
- ansi-terminal-0.6.2.3
- ansi-wl-pprint-0.6.7.3
- array-0.5.1.1
- asn1-encoding-0.9.4
- asn1-parse-0.9.4
- asn1-types-0.3.2
- async-2.1.1
- attoparsec-0.13.1.0
- authenticate-oauth-1.5.1.2
- base-4.9.0.0
- base-orphans-0.5.4
- base16-bytestring-0.1.1.6
- base64-bytestring-1.0.0.1
- basic-prelude-0.6.1
- bifunctors-5.4.1
- binary-0.8.3.0
- bippy-0.1.0.0
- blaze-builder-0.4.0.2
- blaze-html-0.8.1.3
- blaze-markup-0.7.1.1
- byteable-0.1.1
- bytedump-1.0
- bytestring-0.10.8.1
- bytestring-builder-0.10.8.1.0
- case-insensitive-1.2.0.7
- cereal-0.5.4.0
- chunked-data-0.3.0
- cipher-aes-0.2.11
- classy-prelude-1.0.2
- clientsession-0.9.1.2
- clock-0.7.2
- comonad-5
- conduit-1.2.8
- configurator-0.3.0.0
- connection-0.2.6
- constraints-0.8
- containers-0.5.7.1
- contravariant-1.4
- cookie-0.4.2.1
- cprng-aes-0.6.1
- crypto-api-0.13.2
- crypto-cipher-types-0.0.9
- crypto-pubkey-types-0.4.3
- crypto-random-0.0.9
- cryptohash-0.11.9
- cryptohash-md5-0.11.100.1
- cryptohash-sha1-0.11.100.1
- cryptonite-0.21
- data-binary-ieee754-0.4.4
- data-default-0.7.1.1
- data-default-class-0.1.2.0
- data-default-instances-containers-0.0.1
- data-default-instances-dlist-0.0.1
- data-default-instances-old-locale-0.0.1
- deepseq-1.4.2.0
- directory-1.2.6.2
- directory-tree-0.12.1
- distributive-0.5.1
- dlist-0.8.0.2
- dlist-instances-0.1.1.1
- either-4.4.1.1
- entropy-0.3.7
- errors-2.1.3
- exceptions-0.8.3
- fail-4.9.0.0
- filepath-1.4.1.0
- free-4.12.4
- ghc-prim-0.5.0.0
- groups-0.4.0.0
- hashable-1.2.4.0
- haskoin-core-0.4.0
- heaps-0.3.3
- heist-1.0.1.0
- hourglass-0.2.10
- http-client-0.4.31.2
- http-client-tls-0.2.4.1
- http-types-0.9.1
- integer-gmp-1.0.0.1
- io-streams-1.3.6.0
- io-streams-haproxy-1.0.0.1
- iso8601-time-0.1.4
- kan-extensions-5.0.1
- keys-3.11
- largeword-1.2.5
- lens-4.14
- lens-aeson-1.0.0.5
- lifted-async-0.9.1
- lifted-base-0.2.3.8
- map-syntax-0.2.0.1
- memory-0.13
- mime-mail-0.4.12
- mime-types-0.1.0.7
- mmorph-1.0.9
- monad-control-1.0.1.0
- monad-unlift-0.2.0
- mono-traversable-1.0.1
- mono-traversable-instances-0.1.0.0
- mtl-2.2.1
- murmur3-1.0.3
- mutable-containers-0.3.3
- mwc-random-0.13.5.0
- network-2.6.3.1
- network-info-0.2.0.8
- network-uri-2.6.1.0
- old-locale-1.0.0.7
- optparse-applicative-0.12.1.0
- parallel-3.2.1.0
- parsec-3.1.11
- pbkdf-1.1.1.1
- pem-0.2.2
- pointed-5
- postgresql-libpq-0.9.3.0
- postgresql-simple-0.5.2.1
- prelude-extras-0.4.0.3
- primitive-0.6.1.0
- process-1.4.2.0
- profunctors-5.2
- protobuf-0.2.1.1
- psqueues-0.2.2.3
- pureMD5-2.1.3
- pwstore-fast-2.4.4
- random-1.1
- readable-0.3.1
- reflection-2.1.2
- regex-base-0.93.2
- regex-posix-0.95.2
- resource-pool-0.2.3.2
- resourcet-1.1.9
- safe-0.3.10
- safe-exceptions-0.1.4.0
- say-0.1.0.0
- scientific-0.3.4.9
- secp256k1-0.4.6
- securemem-0.1.9
- semigroupoids-5.1
- semigroups-0.18.2
- setenv-0.1.1.3
- skein-1.0.9.4
- smtp-mail-0.1.4.6
- snap-1.0.0.1
- snap-core-1.0.1.0
- snap-server-1.0.1.1
- snaplet-postgresql-simple-1.0.1.0
- socks-0.5.5
- split-0.2.3.1
- stm-2.4.4.1
- stm-chans-3.0.0.4
- streaming-commons-0.1.16
- string-conversions-0.4.0.1
- syb-0.6
- system-filepath-0.4.13.4
- tagged-0.8.5
- template-haskell-2.11.0.0
- text-1.2.2.1
- tf-random-0.5
- thyme-0.3.5.5
- time-1.6.0.1
- time-locale-compat-0.1.1.3
- tls-1.3.9
- transformers-0.5.2.0
- transformers-base-0.4.4
- transformers-compat-0.5.1.4
- unexceptionalio-0.3.0
- unix-2.7.2.0
- unix-compat-0.4.3.1
- unordered-containers-0.2.7.2
- utf8-string-1.0.1.1
- uuid-1.3.13
- uuid-types-1.0.3
- vector-0.11.0.0
- vector-algorithms-0.7.0.1
- vector-instances-3.3.1
- vector-space-0.10.4
- vector-th-unbox-0.2.1.6
- void-0.7.1
- wreq-0.4.1.0
- x509-1.6.5
- x509-store-1.6.2
- x509-system-1.6.4
- x509-validation-1.6.5
- xmlhtml-0.2.3.5
- zlib-0.6.1.2
- zlib-bindings-0.1.1.5

Replacement in stack.yaml at line 6 [8.1074]

B:BD[3.10594] → [3.10594:10647]

    commit: 6284d5fff3954e0e52d559298364035a220867af

[3.10594]

[3.10647]

    commit: ddfc1bf0911351d0be51f33ea9e4166a24d2b19a

Replacement in stack.yaml at line 10 [8.1074]

B:BD[3.10695] → [3.10695:11016]

∅:D[3.11016] → [8.1150:1182]

B:BD[8.1150] → [8.1150:1182]

B:BD[8.1182] → [3.11017:11119]

∅:D[3.11119] → [8.1182:1200]

B:BD[8.1182] → [8.1182:1200]

- aeson-0.11.2.1
- base-orphans-0.5.4
- bytestring-builder-0.10.8.1.0
- call-stack-0.1.0
- haskoin-core-0.4.0
- hspec-2.3.2
- hspec-core-2.3.2
- hspec-discover-2.3.2
- hspec-expectations-0.8.2
- mmorph-1.0.9
- mono-traversable-0.10.2
- murmur3-1.0.1
- pbkdf-1.1.1.1
- postgresql-libpq-0.9.2.0
- postgresql-simple-0.5.2.1
- resource-pool-catchio-0.2.1.0
- secp256k1-0.4.5
- snaplet-postgresql-simple-0.6.0.4
- unix-compat-0.4.3.1
- vector-th-unbox-0.2.1.6
resolver: lts-5.3

[3.10695]

- heist-1.0.1.0
- map-syntax-0.2.0.1
- snap-1.0.0.1
- snaplet-postgresql-simple-1.0.1.0
resolver: lts-7.16

Implement core of payments/billing infrastructure.

Dependencies

In channels

Change contents

Insertion in aftok.cabal at line 32 [5.1]

Replacement in aftok.cabal at line 40 [5.1]

Replacement in aftok.cabal at line 50 [5.1]

Replacement in aftok.cabal at line 52 [5.1]

Replacement in aftok.cabal at line 56 [5.1]

Replacement in aftok.cabal at line 61 [5.1]

Replacement in aftok.cabal at line 63 [5.1]

Replacement in aftok.cabal at line 67 [5.1]

Replacement in aftok.cabal at line 71 [5.1]

Replacement in aftok.cabal at line 76 [5.1]

Replacement in aftok.cabal at line 97 [5.1]

Replacement in aftok.cabal at line 102 [5.1]

Replacement in aftok.cabal at line 144 [5.1]

Replacement in aftok.cabal at line 146 [5.1]

Replacement in aftok.cabal at line 149 [5.1]

Replacement in aftok.cabal at line 154 [5.1]

Insertion in lib/Aftok/Billables.hs at line 2 [3.760]

Insertion in lib/Aftok/Billables.hs at line 11 [3.760]

Deletion in lib/Aftok/Billables.hs at line 18 [3.760]

Deletion in lib/Aftok/Billables.hs at line 44 [3.760]

Insertion in lib/Aftok/Billables.hs at line 58 [3.760]

Insertion in lib/Aftok/Billables.hs at line 71 [3.760]

Insertion in lib/Aftok/Billables.hs at line 75 [3.760]

Insertion in lib/Aftok/Billables.hs at line 83 [3.760]

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 10 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 26 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 32 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 48 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 51 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 54 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 60 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 63 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 66 [26.456]

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 72 [26.456]

Insertion in lib/Aftok/Database/PostgreSQL.hs at line 78 [26.456]

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

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 102 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 107 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 113 [26.456]

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

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 129 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 135 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 141 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 147 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 155 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 158 [26.456]

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

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

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

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 260 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 268 [26.456]

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

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 291 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 314 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 321 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 327 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 337 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 342 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 353 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 358 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 368 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 373 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 378 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 386 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 392 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 403 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 409 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 414 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 422 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 427 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 429 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 433 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 435 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 443 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 449 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 451 [26.456]