stylish-haskell formatting.

[?]

Feb 22, 2017, 8:57 PM

JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC

Dependencies

[2] MJ6R42RC Utility methods for reading key & cert data.
[3] SEWTRB6S Implement payment request creation functions.
[4] 3GBSDS5P Fix out-of-date test code, add skeleton for payments spec.
[5] BWN72T44 Don't accept work timestamp from an external source.
[6] 2XQD6KKK Add invitation logic and clean up DBProg error handling.
[7] O227CEAV Adds storage of original event JSON for some DBOp constructors.
[8] Z7KS5XHH Very WIP. Wow.
[9] NEDDHXUK Reformat via stylish-haskell
[10] QADKFHAR Adds CreatePayment handler implementation.
[11] RN7EI6IN Update database layer to use CreditTo
[12] EKI57EJR Add alternative implementation of auction winner determination.
[13] EMVTF2IW WIP moving back to snap.
[14] Z3MK2PJ5 Add GET handler for retrieving auction data.
[15] QMRKFEPG Refactor QDB to use a free monad algebra instead.
[16] HMDM3B55 Implement core of payments/billing infrastructure.
[17] 64C6AWH6 Rename Ananke -> Quixotic, project reboot.
[18] POX3UAMT Enabling logging of time to contributor/project accounts
[19] DFOBMSAO Initial work on payments API
[20] NLZ3JXLO Fix formatting with stylish-haskell.
[21] NAS4BFL4 Trivial stylish-haskell reformat.
[22] HALRDT2F Added initial auction create route.
[23] Y3LIJ5US Add handler for CreatePaymentRequest
[24] O5FVTOM6 Undo JSON silliness, enable a couple more routes.
[25] Q5X5RYQL stylish-haskell reformatting
[26] IZEVQF62 Work in progress replacing sqlite with postgres.
[27] 73NDXDEZ Begin implementation of billing event persistence.
[28] V2VDN77H Enable postgres configuration via environment variable for Heroku.
[*] W35DDBFY Factor common JSON conversions up into client lib module.

Change contents

replacement in lib/Aftok/Billables.hs at line 1

[5.760]→[5.761:794](∅→∅),[5.794]→[5.918:981](∅→∅)

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE DeriveFunctor #-}
{-# LANGUAGE DeriveFoldable #-}

[5.760]

[5.981]

{-# LANGUAGE DeriveFoldable #-}
{-# LANGUAGE DeriveFunctor #-}
edit in lib/Aftok/Billables.hs at line 4

[5.1016]

[5.794]

{-# LANGUAGE TemplateHaskell #-}
replacement in lib/Aftok/Billables.hs at line 10

[5.857]→[3.24:177](∅→∅)

import Control.Lens (makeLenses, makePrisms, preview, view, _Just)
import Data.List (unfoldr)
import Data.Thyme.Time as T

[5.857]

[5.1017]

import Control.Lens (makeLenses, makePrisms, preview, view, _Just)
import Data.List (unfoldr)
edit in lib/Aftok/Billables.hs at line 13

[5.1056]

[5.1056]

import Data.Thyme.Time as T
replacement in lib/Aftok/Billables.hs at line 16

[5.915]→[5.60:100](∅→∅),[5.100]→[5.73:116](∅→∅),[5.981]→[5.73:116](∅→∅),[5.144]→[5.144:185](∅→∅)

import Aftok (UserId)
import Aftok.Project (ProjectId)
import Aftok.Types (Satoshi)

[5.915]

[5.981]

import Aftok (UserId)
import Aftok.Project (ProjectId)
import Aftok.Types (Satoshi)
replacement in lib/Aftok/Billables.hs at line 61

[5.1117]→[5.1117:1289](∅→∅)

{ _project :: p
, _creator :: u
, _name :: Text
, _description :: Text
, _recurrence :: Recurrence
, _amount :: c
, _gracePeriod :: Days

[5.1117]

[3.305]

{ _project :: p
, _creator :: u
, _name :: Text
, _description :: Text
, _recurrence :: Recurrence
, _amount :: c
, _gracePeriod :: Days
replacement in lib/Aftok/Billables.hs at line 78

[3.394]→[5.1461:1480](∅→∅),[5.1461]→[5.1461:1480](∅→∅)

{ _billable :: b

[3.394]

[5.1480]

{ _billable :: b
replacement in lib/Aftok/Billables.hs at line 80

[5.1508]→[5.1508:1540](∅→∅)

, _endTime :: Maybe C.UTCTime

[5.1508]

[5.1540]

, _endTime :: Maybe C.UTCTime
replacement in lib/Aftok/Billables.hs at line 87

[3.448]→[3.448:478](∅→∅)

nextRecurrence r = case r of

[3.448]

[3.478]

nextRecurrence r = case r of
replacement in lib/Aftok/Billables.hs at line 93

[3.645]→[3.645:649](∅→∅)

{-

[3.645]

[3.649]

{-
replacement in lib/Aftok/Billables.hs at line 95

[3.708]→[3.708:766](∅→∅)

- should be billed, beginning with the first day of the

[3.708]

[3.766]

- should be billed, beginning with the first day of the
replacement in lib/Aftok/Database/PostgreSQL.hs at line 12

[3.1264]→[3.1264:1349](∅→∅)

import Data.ProtocolBuffers (encodeMessage, decodeMessage)

[3.1264]

[3.1349]

import Data.ProtocolBuffers (decodeMessage,
encodeMessage)
edit in lib/Aftok/Database/PostgreSQL.hs at line 32

[5.792]

[5.792]

createSubscriptionJSON,
replacement in lib/Aftok/Database/PostgreSQL.hs at line 34

[5.860]→[5.860:935](∅→∅),[5.935]→[5.1723:1802](∅→∅),[5.1802]→[3.1413:1471](∅→∅)

paymentRequestJSON,
createSubscriptionJSON)
import Aftok.Payments.Types

[5.860]

[5.1208]

paymentRequestJSON)
import Aftok.Payments.Types
replacement in lib/Aftok/Database/PostgreSQL.hs at line 75

[5.2353]→[5.2353:2382](∅→∅)

nominalDiffTimeParser f v =

[5.2353]

[5.2382]

nominalDiffTimeParser f v =
replacement in lib/Aftok/Database/PostgreSQL.hs at line 157

[5.3624]→[5.3624:3727](∅→∅)

prec "annually" = nullField *> pure B.Annually
prec "monthly" = B.Monthly <$> field

[5.3624]

[3.2107]

prec "annually" = nullField *> pure B.Annually
prec "monthly" = B.Monthly <$> field
replacement in lib/Aftok/Database/PostgreSQL.hs at line 160

[3.2168]→[5.3786:3887](∅→∅),[5.3786]→[5.3786:3887](∅→∅),[5.3887]→[3.2169:2246](∅→∅)

prec "weekly" = B.Weekly <$> field
prec "onetime" = nullField *> pure B.OneTime
prec s = fail $ "Unrecognized recurrence type: " ++ show s

[3.2168]

[5.3920]

prec "weekly" = B.Weekly <$> field
prec "onetime" = nullField *> pure B.OneTime
prec s = fail $ "Unrecognized recurrence type: " ++ show s
replacement in lib/Aftok/Database/PostgreSQL.hs at line 166

[5.3989]→[5.3989:4011](∅→∅)

subscriptionParser =

[5.3989]

[5.4011]

subscriptionParser =
replacement in lib/Aftok/Database/PostgreSQL.hs at line 172

[3.2297]→[3.2297:2321](∅→∅)

paymentRequestParser =

[3.2297]

[3.2321]

paymentRequestParser =
replacement in lib/Aftok/Database/PostgreSQL.hs at line 179

[3.2564]→[3.2564:2581](∅→∅)

paymentParser =

[3.2564]

[3.2581]

paymentParser =
replacement in lib/Aftok/Database/PostgreSQL.hs at line 457

[3.3075]→[3.3075:3108](∅→∅)

pgEval (FindSubscription sid) =

[3.3075]

[3.3108]

pgEval (FindSubscription sid) =
replacement in lib/Aftok/Database/PostgreSQL.hs at line 464

[5.5782]→[5.5782:5820](∅→∅)

pgEval (FindSubscriptions uid pid) =

[5.5782]

[3.3288]

pgEval (FindSubscriptions uid pid) =
replacement in lib/Aftok/Database/PostgreSQL.hs at line 487

[5.1568]→[3.3569:3604](∅→∅)

pgEval (FindPaymentRequest rid) =

[5.1568]

[3.3604]

pgEval (FindPaymentRequest rid) =
replacement in lib/Aftok/Database/PostgreSQL.hs at line 493

[3.3796]→[3.3796:3835](∅→∅)

pgEval (FindPaymentRequests sid) =

[3.3796]

[3.3835]

pgEval (FindPaymentRequests sid) =
replacement in lib/Aftok/Database/PostgreSQL.hs at line 513

[3.4353]→[3.4353:4382](∅→∅)

pgEval (FindPayments rid) =

[3.4353]

[3.4382]

pgEval (FindPayments rid) =
edit in lib/Aftok/Database.hs at line 2

[5.39]

[5.6343]

{-# LANGUAGE ExplicitForAll #-}
replacement in lib/Aftok/Database.hs at line 4

[5.6379]→[5.39:75](∅→∅),[5.39]→[5.39:75](∅→∅)

{-# LANGUAGE ExplicitForAll #-}

[5.6379]

[5.6380]

{-# LANGUAGE GADTs #-}
edit in lib/Aftok/Database.hs at line 6

[5.6416]→[5.75:111](∅→∅),[5.75]→[5.75:111](∅→∅)

{-# LANGUAGE GADTs #-}
replacement in lib/Aftok/Database.hs at line 10

[5.143]→[5.6417:6460](∅→∅),[5.6460]→[3.4591:4647](∅→∅)

import Control.Lens (view, (^.))
import Control.Monad.Trans.Maybe (MaybeT(..))

[5.143]

[5.173]

import Control.Lens (view, (^.))
import Control.Monad.Trans.Maybe (MaybeT (..))
replacement in lib/Aftok/Database.hs at line 13

[5.207]→[5.207:246](∅→∅)

import Data.Thyme.Clock as C

[5.207]

[5.6576]

import Data.Thyme.Clock as C
replacement in lib/Aftok/Database.hs at line 16

[5.270]→[5.761:800](∅→∅),[5.800]→[5.3949:3988](∅→∅)

import Aftok.Auction as A
import Aftok.Billables as B

[5.270]

[5.301]

import Aftok.Auction as A
import Aftok.Billables as B
replacement in lib/Aftok/Database.hs at line 20

[5.4021]→[5.801:840](∅→∅),[5.6499]→[5.801:840](∅→∅),[5.333]→[5.801:840](∅→∅)

import Aftok.Project as P

[5.6499]

[5.333]

import Aftok.Project as P
replacement in lib/Aftok/Database.hs at line 198

[3.5907]→[3.5907:5936](∅→∅)

traverse findBillable sub

[3.5907]

[5.4654]

traverse findBillable sub
edit in lib/Aftok/Json.hs at line 23

[5.5025]

[5.3]

import Data.Thyme.Calendar (showGregorian)
edit in lib/Aftok/Json.hs at line 25

[5.58]→[3.6225:6278](∅→∅)

import Data.Thyme.Calendar (showGregorian)
replacement in lib/Aftok/Payments/Types.hs at line 1

[5.10545]→[5.10546:10579](∅→∅),[5.10579]→[3.6572:6635](∅→∅)

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE DeriveFunctor #-}
{-# LANGUAGE DeriveFoldable #-}

[5.10545]

[3.6635]

{-# LANGUAGE DeriveFoldable #-}
{-# LANGUAGE DeriveFunctor #-}
edit in lib/Aftok/Payments/Types.hs at line 4

[3.6670]

[5.10579]

{-# LANGUAGE TemplateHaskell #-}
replacement in lib/Aftok/Payments/Types.hs at line 10

[5.10647]→[5.10647:10703](∅→∅)

import Control.Lens (makeLenses, makePrisms)

[5.10647]

[5.10703]

import Control.Lens (makeLenses, makePrisms)
edit in lib/Aftok/Payments/Types.hs at line 12

[5.10704]→[3.6671:6713](∅→∅)

import Data.Thyme.Time as T
edit in lib/Aftok/Payments/Types.hs at line 13

[5.10746]

[5.10746]

import Data.Thyme.Time as T
edit in lib/Aftok/Payments/Types.hs at line 16

[5.10774]→[3.6714:6795](∅→∅)

import Network.Bippy.Types (expiryTime, getPaymentDetails, getExpires)
edit in lib/Aftok/Payments/Types.hs at line 17

[5.10816]

[5.10816]

import Network.Bippy.Types (expiryTime, getExpires, getPaymentDetails)
replacement in lib/Aftok/Payments/Types.hs at line 19

[5.10817]→[5.10817:10857](∅→∅)

import Aftok.Billables (SubscriptionId)

[5.10817]

[5.10857]

import Aftok.Billables (SubscriptionId)
replacement in lib/Aftok/Payments/Types.hs at line 50

[3.7149]→[3.7149:7170](∅→∅)

isExpired now req =

[3.7149]

[3.7170]

isExpired now req =
replacement in lib/Aftok/Payments/Types.hs at line 52

[3.7223]→[3.7223:7284](∅→∅)

-- using error here is reasonable since it would indicate

[3.7223]

[3.7284]

-- using error here is reasonable since it would indicate
replacement in lib/Aftok/Payments/Types.hs at line 55

[3.7377]→[3.7377:7382](∅→∅)

[3.7377]
replacement in lib/Aftok/Payments.hs at line 1

[5.5686]→[5.5687:5720](∅→∅),[5.5720]→[5.11488:11522](∅→∅)

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleContexts #-}

[5.5686]

[5.5720]

{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TemplateHaskell #-}
replacement in lib/Aftok/Payments.hs at line 5

[5.5721]→[5.11523:11546](∅→∅)

module Aftok.Payments

[5.5721]

[5.11546]

module Aftok.Payments
replacement in lib/Aftok/Payments.hs at line 12

[5.5782]→[3.7384:7517](∅→∅)

import Control.Error.Util (maybeT)
import Control.Lens (makeClassy, makeClassyPrisms, view, (%~), (^.), review)

[5.5782]

[5.11677]

import Control.Error.Util (maybeT)
import Control.Lens (makeClassy, makeClassyPrisms, review,
view, (%~), (^.))
replacement in lib/Aftok/Payments.hs at line 16

[5.11713]→[3.7518:7653](∅→∅),[3.7653]→[5.11829:11880](∅→∅),[5.11829]→[5.11829:11880](∅→∅)

import Control.Monad.Except (MonadError, throwError)
import qualified Crypto.PubKey.RSA.Types as RSA (Error(..), PrivateKey)
import Crypto.Random.Types (MonadRandom)

[5.11713]

[5.5839]

import Control.Monad.Except (MonadError, throwError)
import qualified Crypto.PubKey.RSA.Types as RSA (Error (..), PrivateKey)
import Crypto.Random.Types (MonadRandom)
replacement in lib/Aftok/Payments.hs at line 20

[5.5840]→[5.11881:11965](∅→∅),[5.11965]→[3.7654:7696](∅→∅),[3.7696]→[5.2276:2318](∅→∅),[5.11965]→[5.2276:2318](∅→∅),[5.5840]→[5.2276:2318](∅→∅)

import Data.AffineSpace ((.+^))
import Data.Map.Strict (assocs)
import Data.Thyme.Time as T
import Data.Thyme.Clock as C

[5.5840]

[5.5916]

import Data.AffineSpace ((.+^))
import Data.Map.Strict (assocs)
import Data.Thyme.Clock as C
import Data.Thyme.Time as T
replacement in lib/Aftok/Payments.hs at line 25

[5.5917]→[5.12017:12053](∅→∅),[5.12053]→[5.5917:5959](∅→∅),[5.5917]→[5.5917:5959](∅→∅),[5.5959]→[5.12054:12157](∅→∅)

import qualified Network.Bippy as B
import qualified Network.Bippy.Proto as P
import qualified Network.Bippy.Types as BT
import Network.Haskoin.Script (ScriptOutput(..))

[5.5917]

[5.12157]

import qualified Network.Bippy as B
import qualified Network.Bippy.Proto as P
import qualified Network.Bippy.Types as BT
import Network.Haskoin.Script (ScriptOutput (..))
replacement in lib/Aftok/Payments.hs at line 31

[5.5960]→[5.12187:12295](∅→∅)

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

[5.5960]

[5.2319]

import Aftok (BtcAddr (..), UserId, userAddress,
_BtcAddr)
edit in lib/Aftok/Payments.hs at line 34

[5.2352]

[5.12296]

import Aftok.Database
replacement in lib/Aftok/Payments.hs at line 36

[5.12334]→[5.12334:12459](∅→∅)

import Aftok.Project (ProjectId, depf)
import qualified Aftok.TimeLog as TL
import Aftok.Types (satoshi)

[5.12334]

[5.12459]

import Aftok.Project (ProjectId, depf)
import qualified Aftok.TimeLog as TL
import Aftok.Types (satoshi)
replacement in lib/Aftok/Payments.hs at line 41

[5.12495]→[5.12495:12522](∅→∅)

{ _network :: BT.Network

[5.12495]

[3.7697]

{ _network :: BT.Network
replacement in lib/Aftok/Payments.hs at line 43

[3.7731]→[5.12552:12579](∅→∅),[5.12552]→[5.12552:12579](∅→∅)

, _pkiData :: BT.PKIData

[3.7731]

[5.12579]

, _pkiData :: BT.PKIData
replacement in lib/Aftok/Payments.hs at line 48

[3.7803]→[3.7803:8000](∅→∅)

{ memoGen :: Subscription' Billable -> m (Maybe Text) -- ^ generator user memo
, uriGen :: Subscription' Billable -> m (Maybe URI) -- ^ generator for payment response URL

[3.7803]

[3.8000]

{ memoGen :: Subscription' Billable -> m (Maybe Text) -- ^ generator user memo
, uriGen :: Subscription' Billable -> m (Maybe URI) -- ^ generator for payment response URL
replacement in lib/Aftok/Payments.hs at line 53

[3.8107]→[3.8107:8134](∅→∅)

data PaymentRequestStatus

[3.8107]

[3.8134]

data PaymentRequestStatus
replacement in lib/Aftok/Payments.hs at line 62

[3.8492]→[3.8492:8495](∅→∅)

[3.8492]

[5.12611]
replacement in lib/Aftok/Payments.hs at line 68

[3.8698]→[3.8698:8726](∅→∅)

)

[3.8698]

[3.8726]

)
replacement in lib/Aftok/Payments.hs at line 76

[5.13414]→[3.9096:9182](∅→∅)

join <$> traverse (createSubscriptionPaymentRequests ops now custId) subscriptions

[5.13414]

[3.9182]

join <$> traverse (createSubscriptionPaymentRequests ops now custId) subscriptions
replacement in lib/Aftok/Payments.hs at line 78

[3.9183]→[3.9183:9221](∅→∅)

createSubscriptionPaymentRequests ::

[3.9183]

[3.9221]

createSubscriptionPaymentRequests ::
replacement in lib/Aftok/Payments.hs at line 83

[3.9342]→[3.9342:9369](∅→∅)

)
=> BillingOps m

[3.9342]

[3.9369]

)
=> BillingOps m
replacement in lib/Aftok/Payments.hs at line 97

[3.9950]→[3.9950:9975](∅→∅)

createPaymentRequest ::

[3.9950]

[3.9975]

createPaymentRequest ::
replacement in lib/Aftok/Payments.hs at line 102

[3.10096]→[3.10096:10123](∅→∅)

)
=> BillingOps m

[3.10096]

[3.10123]

)
=> BillingOps m
replacement in lib/Aftok/Payments.hs at line 119

[3.10677]→[3.10677:10680](∅→∅)

[3.10677]

[3.10680]
replacement in lib/Aftok/Payments.hs at line 127

[3.11046]→[3.11046:11148](∅→∅)

-> [(PaymentRequestId, PaymentRequest)] -- ^ the list of existing payment requests

[3.11046]

[3.11148]

-> [(PaymentRequestId, PaymentRequest)] -- ^ the list of existing payment requests
replacement in lib/Aftok/Payments.hs at line 133

[3.11474]→[3.11474:11573](∅→∅)

Expired r -> if view _utctDay now > addDays (view gracePeriod b) (view billingDate r)

[3.11474]

[3.11573]

Expired r -> if view _utctDay now > addDays (view gracePeriod b) (view billingDate r)
replacement in lib/Aftok/Payments.hs at line 137

[3.11842]→[3.11842:11896](∅→∅)

GT -> fmap (d :) $ findUnbilledDates now b px ds

[3.11842]

[3.11896]

GT -> fmap (d :) $ findUnbilledDates now b px ds
replacement in lib/Aftok/Payments.hs at line 145

[3.12126]→[3.12126:12159](∅→∅)

getRequestStatus :: (MonadDB m)

[3.12126]

[3.12159]

getRequestStatus :: (MonadDB m)
replacement in lib/Aftok/Payments.hs at line 149

[3.12397]→[3.12397:12434](∅→∅)

getRequestStatus now (reqid, req) =

[3.12397]

[3.12434]

getRequestStatus now (reqid, req) =
replacement in lib/Aftok/Payments.hs at line 155

[3.12639]→[3.12639:12728](∅→∅)

createPaymentDetails :: (MonadRandom m, MonadReader r m, HasBillingConfig r, MonadDB m)

[3.12639]

[3.12728]

createPaymentDetails :: (MonadRandom m, MonadReader r m, HasBillingConfig r, MonadDB m)
replacement in lib/Aftok/Payments.hs at line 168

[5.14564]→[3.13435:13534](∅→∅)

pure $ B.createPaymentDetails
(cfg ^. network)
outputs
(T.fromThyme billingTime)

[5.14564]

[3.13534]

pure $ B.createPaymentDetails
(cfg ^. network)
outputs
(T.fromThyme billingTime)
replacement in lib/Aftok/Payments.hs at line 173

[3.13562]→[3.13562:13571](∅→∅)

where

[3.13562]

[3.13571]

where
replacement in lib/Aftok/Payments.hs at line 179

[5.14769]→[5.14769:14784](∅→∅)

project' <-

[5.14769]

[5.14784]

project' <-
replacement in lib/Aftok/Payments.hs at line 188

[5.15089]→[5.15089:15121](∅→∅)

createPayoutsOutputs t amt p =

[5.15089]

[5.15121]

createPayoutsOutputs t amt p =
replacement in lib/Aftok/Payments.hs at line 196

[5.15412]→[5.15412:15471](∅→∅)

createOutputs _ (TL.CreditToAddress (BtcAddr addr)) amt =

[5.15412]

[5.15471]

createOutputs _ (TL.CreditToAddress (BtcAddr addr)) amt =
replacement in lib/Aftok/Util.hs at line 2

[5.16358]→[5.10062:10090](∅→∅),[5.10061]→[5.10062:10090](∅→∅)

{-# LANGUAGE RankNTypes #-}

[5.16358]

[5.10090]

{-# LANGUAGE RankNTypes #-}
replacement in lib/Aftok/Util.hs at line 11

[5.10200]→[5.16359:16409](∅→∅)

newtype Program (f :: * -> *) (a :: *) = Program

[5.10200]

[5.16409]

newtype Program (f :: * -> *) (a :: *) = Program
replacement in server/Aftok/QConfig.hs at line 10

[2.60]→[2.60:124](∅→∅)

import Data.X509.File (readSignedObject, readKeyFile)

[2.60]

[2.124]

import Data.X509.File (readKeyFile, readSignedObject)
replacement in server/Aftok/QConfig.hs at line 21

[5.4839]→[2.178:216](∅→∅)

import qualified Aftok.Payments as AP

[5.4839]

[2.216]

import qualified Aftok.Payments as AP
replacement in server/Aftok/QConfig.hs at line 42

[2.289]→[2.289:315](∅→∅)

{ network :: BT.Network

[2.289]

[2.315]

{ network :: BT.Network
replacement in server/Aftok/QConfig.hs at line 44

[2.356]→[2.356:392](∅→∅)

, certsFile :: System.IO.FilePath

[2.356]

[2.392]

, certsFile :: System.IO.FilePath
replacement in server/Aftok/QConfig.hs at line 73

[2.485]→[2.485:510](∅→∅)

readBillingConfig cfg =

[2.485]

[2.510]

readBillingConfig cfg =
replacement in server/Aftok/QConfig.hs at line 79

[2.756]→[2.756:813](∅→∅)

parseNetwork _ = BT.TestNet

[2.756]

[5.17124]

parseNetwork _ = BT.TestNet
replacement in server/Aftok/Snaplet/Auctions.hs at line 25

[5.2963]→[5.17234:17283](∅→∅)

import Snap.Snaplet as S

[5.2963]

[5.2993]

import Snap.Snaplet as S
edit in server/Aftok/Snaplet/Payments.hs at line 23

[5.17951]→[2.1415:1418](∅→∅)
replacement in server/Aftok/Snaplet/Payments.hs at line 24

[5.17953]→[5.17953:17956](∅→∅)

[5.17953]

[5.10307]
edit in server/Aftok/Snaplet/Payments.hs at line 27

[5.17958]
replacement in test/Aftok/Generators.hs at line 7

[4.490]→[4.490:551](∅→∅)

import Network.Haskoin.Test (ArbitraryAddress(..))

[4.490]

[4.551]

import Network.Haskoin.Test (ArbitraryAddress (..))
replacement in test/Aftok/Generators.hs at line 9

[4.552]→[4.552:632](∅→∅)

import Aftok (BtcAddr(..))
import Aftok.Types (Satoshi(..))

[4.552]

[4.632]

import Aftok (BtcAddr (..))
import Aftok.Types (Satoshi (..))