nuttycom/aftok - Change JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC

stylish-haskell formatting.

Created by Kris Nuttycombe on February 22, 2017

JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC

Dependencies

In channels

main

Change contents

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

B:BD[5.760] → [5.761:794]

B:BD[5.794] → [6.918:981]

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

[5.760]

[6.981]

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

Insertion in lib/Aftok/Billables.hs at line 4 [5.760]
[6.1016]
[5.794]
```
{-# LANGUAGE TemplateHaskell   #-}
```

Replacement in lib/Aftok/Billables.hs at line 10 [5.760]

B:BD[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]

[6.1017]

import           Control.Lens     (makeLenses, makePrisms, preview, view, _Just)
import           Data.List        (unfoldr)

Insertion in lib/Aftok/Billables.hs at line 13 [5.760]
[6.1056]
[6.1056]
```
import           Data.Thyme.Time  as T
```

Replacement in lib/Aftok/Billables.hs at line 16 [5.760]

B:BD[5.915] → [7.60:100]

∅:D[7.100] → [8.73:116]

B:BD[5.981] → [8.73:116]

B:BD[7.144] → [7.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.760]

B:BD[6.1117] → [6.1117:1289]

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

[6.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 [5.760]
∅:D[3.394] → [6.1461:1480]
B:BD[6.1461] → [6.1461:1480]
```
  { _billable :: b
```
[3.394]
[6.1480]
```
  { _billable  :: b
```
Replacement in lib/Aftok/Billables.hs at line 80 [5.760]
B:BD[6.1508] → [6.1508:1540]
```
  , _endTime :: Maybe C.UTCTime
```
[6.1508]
[6.1540]
```
  , _endTime   :: Maybe C.UTCTime
```
Replacement in lib/Aftok/Billables.hs at line 87 [5.760]
B:BD[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 [5.760]
B:BD[3.645] → [3.645:649]
```
{- 
```
[3.645]
[3.649]
```
{-
```

Replacement in lib/Aftok/Billables.hs at line 95 [5.760]

B:BD[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 [9.456]

B:BD[3.1264] → [3.1264:1349]

import           Data.ProtocolBuffers                 (encodeMessage, decodeMessage)

[3.1264]

[3.1349]

import           Data.ProtocolBuffers                 (decodeMessage,
                                                       encodeMessage)

Insertion in lib/Aftok/Database/PostgreSQL.hs at line 32 [9.456]

[7.792]

                                                       createSubscriptionJSON,

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 34 [9.456]

B:BD[7.860] → [7.860:935]

B:BD[7.935] → [6.1723:1802]

B:BD[6.1802] → [3.1413:1471]

                                                       paymentRequestJSON,
                                                       createSubscriptionJSON)
import           Aftok.Payments.Types

[7.860]

[8.1208]

                                                       paymentRequestJSON)
import           Aftok.Payments.Types

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 75 [9.456]
B:BD[6.2353] → [6.2353:2382]
```
nominalDiffTimeParser f v = 
```
[6.2353]
[6.2382]
```
nominalDiffTimeParser f v =
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 157 [9.456]

B:BD[6.3624] → [6.3624:3727]

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

[6.3624]

[3.2107]

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

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

∅:D[3.2168] → [6.3786:3887]

B:BD[6.3786] → [6.3786:3887]

B:BD[6.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]

[6.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 [9.456]
B:BD[6.3989] → [6.3989:4011]
```
subscriptionParser = 
```
[6.3989]
[6.4011]
```
subscriptionParser =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 172 [9.456]
B:BD[3.2297] → [3.2297:2321]
```
paymentRequestParser = 
```
[3.2297]
[3.2321]
```
paymentRequestParser =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 179 [9.456]
B:BD[3.2564] → [3.2564:2581]
```
paymentParser = 
```
[3.2564]
[3.2581]
```
paymentParser =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 457 [9.456]
B:BD[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 [9.456]
B:BD[6.5782] → [6.5782:5820]
```
pgEval (FindSubscriptions uid pid) = 
```
[6.5782]
[3.3288]
```
pgEval (FindSubscriptions uid pid) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 487 [9.456]
B:BD[7.1568] → [3.3569:3604]
```
pgEval (FindPaymentRequest rid) = 
```
[7.1568]
[3.3604]
```
pgEval (FindPaymentRequest rid) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 493 [9.456]
B:BD[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 [9.456]
B:BD[3.4353] → [3.4353:4382]
```
pgEval (FindPayments rid) = 
```
[3.4353]
[3.4382]
```
pgEval (FindPayments rid) =
```
Insertion in lib/Aftok/Database.hs at line 2 [11.4936]
[10.39]
[6.6343]
```
{-# LANGUAGE ExplicitForAll     #-}
```
Replacement in lib/Aftok/Database.hs at line 4 [11.4936]
∅:D[6.6379] → [10.39:75]
B:BD[10.39] → [10.39:75]
```
{-# LANGUAGE ExplicitForAll     #-}
```
[6.6379]
[6.6380]
```
{-# LANGUAGE GADTs              #-}
```
Deletion in lib/Aftok/Database.hs at line 6 [11.4936]
∅:D[6.6416] → [10.75:111]
B:BD[10.75] → [10.75:111]
```
{-# LANGUAGE GADTs              #-}
```

Replacement in lib/Aftok/Database.hs at line 10 [11.4936]

B:BD[10.143] → [6.6417:6460]

B:BD[6.6460] → [3.4591:4647]

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

[10.143]

[10.173]

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

Replacement in lib/Aftok/Database.hs at line 13 [11.4936]
B:BD[10.207] → [10.207:246]
```
import           Data.Thyme.Clock as C
```
[10.207]
[9.6576]
```
import           Data.Thyme.Clock          as C
```

Replacement in lib/Aftok/Database.hs at line 16 [11.4936]

B:BD[10.270] → [12.761:800]

B:BD[12.800] → [5.3949:3988]

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

[10.270]

[10.301]

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

Replacement in lib/Aftok/Database.hs at line 20 [11.4936]
∅:D[5.4021] → [12.801:840]
∅:D[6.6499] → [12.801:840]
B:BD[10.333] → [12.801:840]
```
import           Aftok.Project    as P
```
[6.6499]
[10.333]
```
import           Aftok.Project             as P
```
Replacement in lib/Aftok/Database.hs at line 198 [11.4936]
B:BD[3.5907] → [3.5907:5936]
```
  traverse findBillable sub 
```
[3.5907]
[5.4654]
```
  traverse findBillable sub
```

Insertion in lib/Aftok/Json.hs at line 23 [14.19]

[5.5025]

[13.3]

import           Data.Thyme.Calendar              (showGregorian)

Deletion in lib/Aftok/Json.hs at line 25 [14.19]
B:BD[13.58] → [3.6225:6278]
```
import           Data.Thyme.Calendar (showGregorian)
```

Replacement in lib/Aftok/Payments/Types.hs at line 1 [6.10545]

B:BD[6.10545] → [6.10546:10579]

B:BD[6.10579] → [3.6572:6635]

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

[6.10545]

[3.6635]

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

Insertion in lib/Aftok/Payments/Types.hs at line 4 [6.10545]
[3.6670]
[6.10579]
```
{-# LANGUAGE TemplateHaskell   #-}
```

Replacement in lib/Aftok/Payments/Types.hs at line 10 [6.10545]

B:BD[6.10647] → [6.10647:10703]

import           Control.Lens  (makeLenses, makePrisms)

[6.10647]

[6.10703]

import           Control.Lens        (makeLenses, makePrisms)

Deletion in lib/Aftok/Payments/Types.hs at line 12 [6.10545]
B:BD[6.10704] → [3.6671:6713]
```
import           Data.Thyme.Time     as T
```
Insertion in lib/Aftok/Payments/Types.hs at line 13 [6.10545]
[6.10746]
[6.10746]
```
import           Data.Thyme.Time     as T
```
Deletion in lib/Aftok/Payments/Types.hs at line 16 [6.10545]
B:BD[6.10774] → [3.6714:6795]
```
import           Network.Bippy.Types (expiryTime, getPaymentDetails, getExpires)
```

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

[6.10816]

import           Network.Bippy.Types (expiryTime, getExpires, getPaymentDetails)

Replacement in lib/Aftok/Payments/Types.hs at line 19 [6.10545]
B:BD[6.10817] → [6.10817:10857]
```
import Aftok.Billables (SubscriptionId)
```
[6.10817]
[6.10857]
```
import           Aftok.Billables     (SubscriptionId)
```
Replacement in lib/Aftok/Payments/Types.hs at line 50 [6.10545]
B:BD[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 [6.10545]

B:BD[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 [6.10545]
B:BD[3.7377] → [3.7377:7382]
```
    
```
[3.7377]

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

B:BD[5.5686] → [5.5687:5720]

B:BD[5.5720] → [6.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.5686]
B:BD[5.5721] → [6.11523:11546]
```
module Aftok.Payments 
```
[5.5721]
[6.11546]
```
module Aftok.Payments
```

Replacement in lib/Aftok/Payments.hs at line 12 [5.5686]

B:BD[5.5782] → [3.7384:7517]

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

[5.5782]

[6.11677]

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

Replacement in lib/Aftok/Payments.hs at line 16 [5.5686]

B:BD[6.11713] → [3.7518:7653]

∅:D[3.7653] → [6.11829:11880]

B:BD[6.11829] → [6.11829:11880]

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

[6.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.5686]

B:BD[5.5840] → [6.11881:11965]

B:BD[6.11965] → [3.7654:7696]

∅:D[3.7696] → [7.2276:2318]

∅:D[6.11965] → [7.2276:2318]

B:BD[5.5840] → [7.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.5686]

B:BD[5.5917] → [6.12017:12053]

∅:D[6.12053] → [5.5917:5959]

B:BD[5.5917] → [5.5917:5959]

B:BD[5.5959] → [6.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]

[6.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.5686]

B:BD[5.5960] → [6.12187:12295]

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

[5.5960]

[7.2319]

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

Insertion in lib/Aftok/Payments.hs at line 34 [5.5686]
[7.2352]
[6.12296]
```
import           Aftok.Database
```

Replacement in lib/Aftok/Payments.hs at line 36 [5.5686]

B:BD[6.12334] → [6.12334:12459]

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

[6.12334]

[6.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.5686]
B:BD[6.12495] → [6.12495:12522]
```
  { _network :: BT.Network
```
[6.12495]
[3.7697]
```
  { _network    :: BT.Network
```
Replacement in lib/Aftok/Payments.hs at line 43 [5.5686]
∅:D[3.7731] → [6.12552:12579]
B:BD[6.12552] → [6.12552:12579]
```
  , _pkiData :: BT.PKIData
```
[3.7731]
[6.12579]
```
  , _pkiData    :: BT.PKIData
```

Replacement in lib/Aftok/Payments.hs at line 48 [5.5686]

B:BD[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 [5.5686]
B:BD[3.8107] → [3.8107:8134]
```
data PaymentRequestStatus 
```
[3.8107]
[3.8134]
```
data PaymentRequestStatus
```
Replacement in lib/Aftok/Payments.hs at line 62 [5.5686]
B:BD[3.8492] → [3.8492:8495]
```
  
```
[3.8492]
[6.12611]

Replacement in lib/Aftok/Payments.hs at line 68 [5.5686]

B:BD[3.8698] → [3.8698:8726]

[3.8698]

[3.8726]

Replacement in lib/Aftok/Payments.hs at line 76 [5.5686]

B:BD[6.13414] → [3.9096:9182]

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

[6.13414]

[3.9182]

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

Replacement in lib/Aftok/Payments.hs at line 78 [5.5686]
B:BD[3.9183] → [3.9183:9221]
```
createSubscriptionPaymentRequests :: 
```
[3.9183]
[3.9221]
```
createSubscriptionPaymentRequests ::
```
Replacement in lib/Aftok/Payments.hs at line 83 [5.5686]
B:BD[3.9342] → [3.9342:9369]
```
     ) 
  => BillingOps m 
```
[3.9342]
[3.9369]
```
     )
  => BillingOps m
```
Replacement in lib/Aftok/Payments.hs at line 97 [5.5686]
B:BD[3.9950] → [3.9950:9975]
```
createPaymentRequest :: 
```
[3.9950]
[3.9975]
```
createPaymentRequest ::
```
Replacement in lib/Aftok/Payments.hs at line 102 [5.5686]
B:BD[3.10096] → [3.10096:10123]
```
     ) 
  => BillingOps m 
```
[3.10096]
[3.10123]
```
     )
  => BillingOps m
```
Replacement in lib/Aftok/Payments.hs at line 119 [5.5686]
B:BD[3.10677] → [3.10677:10680]
```
  
```
[3.10677]
[3.10680]

Replacement in lib/Aftok/Payments.hs at line 127 [5.5686]

B:BD[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 [5.5686]

B:BD[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 [5.5686]

B:BD[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 [5.5686]
B:BD[3.12126] → [3.12126:12159]
```
getRequestStatus :: (MonadDB m) 
```
[3.12126]
[3.12159]
```
getRequestStatus :: (MonadDB m)
```
Replacement in lib/Aftok/Payments.hs at line 149 [5.5686]
B:BD[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 [5.5686]

B:BD[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.5686]

B:BD[6.14564] → [3.13435:13534]

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

[6.14564]

[3.13534]

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

Replacement in lib/Aftok/Payments.hs at line 173 [5.5686]
B:BD[3.13562] → [3.13562:13571]
```
  where 
```
[3.13562]
[3.13571]
```
  where
```
Replacement in lib/Aftok/Payments.hs at line 179 [5.5686]
B:BD[6.14769] → [6.14769:14784]
```
  project' <- 
```
[6.14769]
[6.14784]
```
  project' <-
```
Replacement in lib/Aftok/Payments.hs at line 188 [5.5686]
B:BD[6.15089] → [6.15089:15121]
```
createPayoutsOutputs t amt p = 
```
[6.15089]
[6.15121]
```
createPayoutsOutputs t amt p =
```

Replacement in lib/Aftok/Payments.hs at line 196 [5.5686]

B:BD[6.15412] → [6.15412:15471]

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

[6.15412]

[6.15471]

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

Replacement in lib/Aftok/Util.hs at line 2 [15.10061]
∅:D[6.16358] → [15.10062:10090]
B:BD[15.10061] → [15.10062:10090]
```
{-# LANGUAGE RankNTypes #-}
```
[6.16358]
[15.10090]
```
{-# LANGUAGE RankNTypes                 #-}
```
Replacement in lib/Aftok/Util.hs at line 11 [15.10061]
B:BD[15.10200] → [6.16359:16409]
```
newtype Program (f :: * -> *) (a :: *) = Program 
```
[15.10200]
[6.16409]
```
newtype Program (f :: * -> *) (a :: *) = Program
```

Replacement in server/Aftok/QConfig.hs at line 10 [16.4500]

B:BD[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 [16.4500]
B:BD[16.4839] → [2.178:216]
```
import qualified Aftok.Payments as AP
```
[16.4839]
[2.216]
```
import qualified Aftok.Payments                as AP
```
Replacement in server/Aftok/QConfig.hs at line 42 [16.4500]
B:BD[2.289] → [2.289:315]
```
  { network :: BT.Network
```
[2.289]
[2.315]
```
  { network        :: BT.Network
```
Replacement in server/Aftok/QConfig.hs at line 44 [16.4500]
B:BD[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 [16.4500]
B:BD[2.485] → [2.485:510]
```
readBillingConfig cfg = 
```
[2.485]
[2.510]
```
readBillingConfig cfg =
```

Replacement in server/Aftok/QConfig.hs at line 79 [16.4500]

B:BD[2.756] → [2.756:813]

        parseNetwork _ = BT.TestNet

[2.756]

[6.17124]

        parseNetwork _      = BT.TestNet

Replacement in server/Aftok/Snaplet/Auctions.hs at line 25 [17.2441]
B:BD[17.2963] → [6.17234:17283]
```
import           Snap.Snaplet               as S
```
[17.2963]
[17.2993]
```
import           Snap.Snaplet         as S
```
Deletion in server/Aftok/Snaplet/Payments.hs at line 23 [5.9762]
B:BD[6.17951] → [2.1415:1418]
```
  
```
Replacement in server/Aftok/Snaplet/Payments.hs at line 24 [5.9762]
B:BD[6.17953] → [6.17953:17956]
```
  
```
[6.17953]
[5.10307]
Insertion in server/Aftok/Snaplet/Payments.hs at line 27 [5.9762]
[6.17958]

Replacement in test/Aftok/Generators.hs at line 7 [4.398]

B:BD[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.398]

B:BD[4.552] → [4.552:632]

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

[4.552]

[4.632]

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

stylish-haskell formatting.

Dependencies

In channels

Change contents

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

Insertion in lib/Aftok/Billables.hs at line 4 [5.760]

Replacement in lib/Aftok/Billables.hs at line 10 [5.760]

Insertion in lib/Aftok/Billables.hs at line 13 [5.760]

Replacement in lib/Aftok/Billables.hs at line 16 [5.760]

Replacement in lib/Aftok/Billables.hs at line 61 [5.760]

Replacement in lib/Aftok/Billables.hs at line 78 [5.760]

Replacement in lib/Aftok/Billables.hs at line 80 [5.760]

Replacement in lib/Aftok/Billables.hs at line 87 [5.760]

Replacement in lib/Aftok/Billables.hs at line 93 [5.760]

Replacement in lib/Aftok/Billables.hs at line 95 [5.760]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 12 [9.456]

Insertion in lib/Aftok/Database/PostgreSQL.hs at line 32 [9.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 34 [9.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 75 [9.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 157 [9.456]

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

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 166 [9.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 172 [9.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 179 [9.456]

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

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 464 [9.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 487 [9.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 493 [9.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 513 [9.456]

Insertion in lib/Aftok/Database.hs at line 2 [11.4936]

Replacement in lib/Aftok/Database.hs at line 4 [11.4936]

Deletion in lib/Aftok/Database.hs at line 6 [11.4936]

Replacement in lib/Aftok/Database.hs at line 10 [11.4936]

Replacement in lib/Aftok/Database.hs at line 13 [11.4936]

Replacement in lib/Aftok/Database.hs at line 16 [11.4936]

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

Replacement in lib/Aftok/Database.hs at line 198 [11.4936]

Insertion in lib/Aftok/Json.hs at line 23 [14.19]

Deletion in lib/Aftok/Json.hs at line 25 [14.19]

Replacement in lib/Aftok/Payments/Types.hs at line 1 [6.10545]

Insertion in lib/Aftok/Payments/Types.hs at line 4 [6.10545]

Replacement in lib/Aftok/Payments/Types.hs at line 10 [6.10545]

Deletion in lib/Aftok/Payments/Types.hs at line 12 [6.10545]

Insertion in lib/Aftok/Payments/Types.hs at line 13 [6.10545]

Deletion in lib/Aftok/Payments/Types.hs at line 16 [6.10545]

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

Replacement in lib/Aftok/Payments/Types.hs at line 19 [6.10545]

Replacement in lib/Aftok/Payments/Types.hs at line 50 [6.10545]

Replacement in lib/Aftok/Payments/Types.hs at line 52 [6.10545]

Replacement in lib/Aftok/Payments/Types.hs at line 55 [6.10545]

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

Replacement in lib/Aftok/Payments.hs at line 5 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 12 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 16 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 20 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 25 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 31 [5.5686]

Insertion in lib/Aftok/Payments.hs at line 34 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 36 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 41 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 43 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 48 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 53 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 62 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 68 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 76 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 78 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 83 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 97 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 102 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 119 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 127 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 133 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 137 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 145 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 149 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 155 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 168 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 173 [5.5686]

Replacement in lib/Aftok/Payments.hs at line 179 [5.5686]