nuttycom/aftok - Change Q5X5RYQLP5K7REYD6VLHOKC4W36ZELJYA45V6YFKTD5S6MPN3NDQC

stylish-haskell reformatting

Created by Kris Nuttycombe on January 21, 2017

Q5X5RYQLP5K7REYD6VLHOKC4W36ZELJYA45V6YFKTD5S6MPN3NDQC

Dependencies

In channels

main

Change contents

Replacement in lib/Aftok/Billables.hs at line 7 [3.760]

B:BD[3.857] → [4.3:72]

import           Control.Lens               (makeLenses, makePrisms)

[3.857]

[3.914]

import           Control.Lens  (makeLenses, makePrisms)

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

B:BD[3.915] → [3.915:981]

import           Data.UUID
import           Aftok.Time (Days(..))

[3.915]

[4.73]

import           Aftok         (UserId)

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

B:BD[4.116] → [4.116:187]

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

[4.116]

[3.981]

import           Aftok.Time    (Days (..))
import           Aftok.Types   (Satoshi)
import           Data.UUID

Replacement in lib/Aftok/Billables.hs at line 23 [3.760]
B:BD[3.1221] → [3.1221:1236]
```
  | OneTime   
```
[3.1124]
[3.1236]
```
  | OneTime
```
Replacement in lib/Aftok/Billables.hs at line 27 [3.760]
B:BD[4.267] → [4.267:305]
```
recurrenceName Annually  = "annually"
```
[4.267]
[4.305]
```
recurrenceName Annually    = "annually"
```
Replacement in lib/Aftok/Billables.hs at line 31 [3.760]
B:BD[4.425] → [4.425:462]
```
recurrenceName OneTime   = "onetime"
```
[4.425]
[4.462]
```
recurrenceName OneTime     = "onetime"
```
Replacement in lib/Aftok/Billables.hs at line 34 [3.760]
B:BD[4.506] → [4.506:541]
```
recurrenceCount Annually = Nothing
```
[4.506]
[4.541]
```
recurrenceCount Annually    = Nothing
```
Replacement in lib/Aftok/Billables.hs at line 38 [3.760]
B:BD[4.653] → [4.653:688]
```
recurrenceCount OneTime  = Nothing
```
[4.653]
[4.688]
```
recurrenceCount OneTime     = Nothing
```
Replacement in lib/Aftok/Billables.hs at line 41 [3.760]
∅:D[4.742] → [3.1304:1322]
B:BD[3.1304] → [3.1304:1322]
B:BD[3.1322] → [4.743:761]
∅:D[4.761] → [3.1322:1340]
B:BD[3.1322] → [3.1322:1340]
```
  { _project :: p
  , _creator :: u
  , _name :: Text
```
[4.742]
[3.1340]
```
  { _project     :: p
  , _creator     :: u
  , _name        :: Text
```

Replacement in lib/Aftok/Billables.hs at line 45 [3.760]

B:BD[3.1365] → [3.1365:1412]

  , _recurrence :: Recurrence
  , _amount :: c

[3.1365]

[3.1412]

  , _recurrence  :: Recurrence
  , _amount      :: c

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 9 [7.456]

B:BD[5.1043] → [6.4:74]

import           Data.Aeson                           (toJSON, Value)

[5.1043]

[5.1106]

import           Data.Aeson                           (Value, toJSON)

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

B:BD[5.1256] → [8.65:109]

import Data.ProtocolBuffers (encodeMessage)

[5.1256]

[8.109]

import           Data.ProtocolBuffers                 (encodeMessage)

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 23 [7.456]

B:BD[3.1829] → [3.1829:1884]

import           Network.Haskoin.Crypto (addrToBase58)

[3.1829]

[7.1011]

import           Network.Haskoin.Crypto               (addrToBase58)

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 30 [7.456]

B:BD[5.1678] → [2.4:124]

import           Aftok.Json                           (billableJSON, subscriptionJSON, paymentRequestJSON, paymentJSON)

[5.1678]

[8.173]

import           Aftok.Json                           (billableJSON,
                                                       paymentJSON,
                                                       paymentRequestJSON,
                                                       subscriptionJSON)

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 36 [7.456]

B:BD[4.1267] → [4.1267:1339]

import           Aftok.Time                           (Days(..), _Days)

[4.1267]

[5.1678]

import           Aftok.Time                           (Days (..), _Days)

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

B:BD[4.1533] → [4.1533:1632]

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

[4.1533]

[4.1632]

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

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

B:BD[4.1692] → [4.1692:1810]

      prec "weekly"   = BI.Weekly <$> field
      prec "onetime"  = nullField *> pure BI.OneTime
      prec _ = empty

[4.1692]

[4.1810]

      prec "weekly"      = BI.Weekly <$> field
      prec "onetime"     = nullField *> pure BI.OneTime
      prec _             = empty

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 106 [7.456]
B:BD[8.346] → [8.346:371]
```
creditToParser' f v =   
```
[8.346]
[4.2050]
```
creditToParser' f v =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 114 [7.456]
B:BD[4.2461] → [4.2461:2489]
```
    if tn /= "credit_to_t" 
```
[4.2461]
[4.2489]
```
    if tn /= "credit_to_t"
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 209 [7.456]
B:BD[4.3794] → [6.163:200]
```
storeEvent (CreateBillable uid b) = 
```
[4.3794]
[6.200]
```
storeEvent (CreateBillable uid b) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 212 [7.456]
B:BD[6.264] → [6.264:307]
```
storeEvent (CreateSubscription uid bid) = 
```
[6.264]
[6.307]
```
storeEvent (CreateSubscription uid bid) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 215 [7.456]
B:BD[6.385] → [2.125:170]
```
storeEvent (CreatePaymentRequest uid req) = 
```
[6.385]
[2.170]
```
storeEvent (CreatePaymentRequest uid req) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 218 [7.456]
B:BD[2.249] → [2.249:287]
```
storeEvent (CreatePayment uid req) = 
```
[2.249]
[2.287]
```
storeEvent (CreatePayment uid req) =
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 467 [7.456]
B:BD[8.1093] → [8.1093:1120]
```
    , eventId ^. _EventId 
```
[8.1093]
[8.1120]
```
    , eventId ^. _EventId
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 470 [7.456]
B:BD[8.1186] → [8.1186:1189]
```
  
```
[8.1186]
[6.955]
Replacement in lib/Aftok/Database.hs at line 178 [9.4936]
B:BD[6.1261] → [6.1261:1285]
```
createBillable uid b = 
```
[6.1261]
[6.1285]
```
createBillable uid b =
```
Deletion in lib/Aftok/Database.hs at line 187 [9.4936]
B:BD[3.4784] → [3.4784:4787]
```
  
```
Insertion in lib/Aftok/Database.hs at line 188 [9.4936]
[3.4788]
[10.466]
Replacement in lib/Aftok/Interval.hs at line 48 [12.1422]
B:BD[11.3543] → [11.3543:3571]
```
parseIntervalJSON _ = mzero
```
[11.3543]
```
parseIntervalJSON _          = mzero
```
Deletion in lib/Aftok/Json.hs at line 13 [15.19]
∅:D[13.59] → [14.1077:1132]
B:BD[11.3725] → [14.1077:1132]
```
import qualified Data.ByteString.Char8            as C
```

Replacement in lib/Aftok/Json.hs at line 14 [15.19]

B:BD[2.410] → [2.410:454]

import Data.ProtocolBuffers (encodeMessage)

[2.410]

[14.1132]

import qualified Data.ByteString.Char8            as C

Replacement in lib/Aftok/Json.hs at line 19 [15.19]

B:BD[14.1270] → [2.455:518]

import           Data.Serialize.Put                   (runPut)

[14.1270]

[3.4970]

import           Data.ProtocolBuffers             (encodeMessage)
import           Data.Serialize.Put               (runPut)

Replacement in lib/Aftok/Json.hs at line 34 [15.19]

B:BD[13.201] → [3.5026:5069]

import           Aftok.Util (traverseKeys)

[13.201]

[15.272]

import           Aftok.Util                       (traverseKeys)

Replacement in lib/Aftok/Json.hs at line 88 [15.19]
B:BD[16.1001] → [16.1001:1031]
```
  p ver = badVersion name ver
```
[16.1001]
[17.939]
```
  p ver           = badVersion name ver
```
Replacement in lib/Aftok/Json.hs at line 189 [15.19]
B:BD[6.2289] → [6.2289:2322]
```
subscriptionJSON uid bid = v1 $ 
```
[6.2289]
[6.2322]
```
subscriptionJSON uid bid = v1 $
```
Replacement in lib/Aftok/Json.hs at line 240 [15.19]
B:BD[16.3443] → [3.5278:5301]
```
  p (Version 1 _) v = 
```
[16.3443]
[3.5301]
```
  p (Version 1 _) v =
```

Replacement in lib/Aftok/Json.hs at line 242 [15.19]

B:BD[3.5347] → [3.5347:5512]

        parseKey k = maybe 
                     (fail $ "Key " <> k <> " cannot be parsed as a valid BTC address.") 
                     (pure . CreditToAddress)

[3.5347]

[3.5512]

        parseKey k = maybe
                     (fail $ "Key " <> k <> " cannot be parsed as a valid BTC address.")
                     (pure . CreditToAddress)

Replacement in lib/Aftok/Json.hs at line 247 [15.19]
B:BD[3.5633] → [3.5633:5638]
```
    
```
[3.5633]
[18.1305]
Replacement in lib/Aftok/Json.hs at line 252 [15.19]
B:BD[3.5640] → [3.5640:5653]
```
  p ver x = 
```
[3.5640]
[3.5653]
```
  p ver x =
```
Replacement in lib/Aftok/Json.hs at line 259 [15.19]
B:BD[16.3941] → [16.3941:3983]
```
  p ver = badVersion "EventAmendment" ver
```
[16.3941]
[17.1956]
```
  p ver           = badVersion "EventAmendment" ver
```

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

B:BD[3.5782] → [10.517:586]

import           Control.Lens               (makeLenses, makePrisms)

[3.5782]

[3.5839]

import           Control.Lens        (makeLenses, makePrisms)

Replacement in lib/Aftok/Payments.hs at line 9 [3.5686]
B:BD[3.5840] → [3.5840:5889]
```
import           Data.Thyme.Clock           as C
```
[3.5840]
[3.5889]
```
import           Data.Thyme.Clock    as C
```
Replacement in lib/Aftok/Payments.hs at line 14 [3.5686]
B:BD[3.5960] → [10.587:610]
```
import Aftok.Billables
```
[3.5960]
[10.610]
```
import           Aftok.Billables
```
Replacement in lib/Aftok/Payments.hs at line 23 [3.5686]
∅:D[10.714] → [4.13944:13967]
∅:D[2.1303] → [4.13944:13967]
B:BD[4.13944] → [4.13944:13967]
∅:D[4.13967] → [3.6159:6199]
B:BD[3.6159] → [3.6159:6199]
```
  { _subscription :: s
  , _paymentRequest :: P.PaymentRequest
```
[2.1303]
[3.6199]
```
  { _subscription       :: s
  , _paymentRequest     :: P.PaymentRequest
```
Replacement in lib/Aftok/Payments.hs at line 32 [3.5686]
∅:D[10.832] → [3.6315:6359]
∅:D[2.1330] → [3.6315:6359]
∅:D[4.14000] → [3.6315:6359]
B:BD[3.6315] → [3.6315:6359]
```
  { _request :: r
  , _payment :: P.Payment
```
[2.1330]
[3.6359]
```
  { _request     :: r
  , _payment     :: P.Payment
```
Replacement in lib/Aftok/Payments.hs at line 38 [3.5686]
B:BD[10.856] → [10.856:898]
```
type Payment = Payment' PaymentRequestId 
```
[10.856]
```
type Payment = Payment' PaymentRequestId
```

Replacement in lib/Aftok/Time.hs at line 5 [3.6473]

B:BD[3.6530] → [4.14036:14093]

import           Control.Lens               (makePrisms)

[3.6530]

import           Control.Lens  (makePrisms)

Replacement in lib/Aftok/TimeLog.hs at line 70 [20.846]
B:BD[19.5337] → [19.5337:5386]
```
creditToName (CreditToUser _) = "credit_to_user"
```
[19.5337]
[19.5386]
```
creditToName (CreditToUser _)    = "credit_to_user"
```

Replacement in lib/Aftok/Types.hs at line 8 [21.805]

B:BD[13.848] → [3.6639:6690]

import           Network.Bippy.Types (Satoshi(..))

[13.848]

[21.915]

import           Network.Bippy.Types (Satoshi (..))

Replacement in lib/Aftok/Types.hs at line 10 [21.805]
B:BD[21.916] → [3.6691:6724]
```
satoshi :: Lens' Satoshi Word64 
```
[21.916]
[3.6724]
```
satoshi :: Lens' Satoshi Word64
```
Replacement in lib/Aftok/Util.hs at line 8 [22.10061]
B:BD[5.5676] → [3.6778:6816]
```
import           Data.Map.Strict as M
```
[5.5676]
[22.10199]
```
import           Data.Map.Strict           as M
```
Replacement in lib/Aftok/Util.hs at line 22 [22.10061]
B:BD[3.6897] → [3.6897:6917]
```
traverseKeys f m = 
```
[3.6897]
[3.6917]
```
traverseKeys f m =
```

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

B:BD[23.2690] → [18.1683:1742]

import           Control.Lens     (makeLenses, makePrisms)

[23.2690]

[5.5906]

import           Control.Lens           (makeLenses, makePrisms)

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

B:BD[20.2593] → [3.7009:7078]

import           Network.Haskoin.Crypto (Address(..), base58ToAddr)

[20.2593]

[3.7078]

import           Network.Haskoin.Crypto (Address (..), base58ToAddr)

Replacement in server/Aftok/Snaplet/Auctions.hs at line 48 [25.2441]
B:BD[24.622] → [24.622:652]
```
  snapEval . createAuction $ 
```
[24.622]
[24.652]
```
  snapEval . createAuction $
```
Replacement in server/Aftok/Snaplet/Payments.hs at line 11 [3.9762]
B:BD[3.9959] → [3.9959:10001]
```
requestPaymentHandler :: Handler App App 
```
[3.9959]
[3.10001]
```
requestPaymentHandler :: Handler App App
```
Replacement in server/Aftok/Snaplet/Payments.hs at line 19 [3.9762]
B:BD[3.10265] → [3.10265:10295]
```
  -- look up the outstanding 
```
[3.10265]
[3.10295]
```
  -- look up the outstanding
```
Replacement in server/Aftok/Snaplet/Projects.hs at line 36 [26.2363]
∅:D[22.12167] → [26.2892:2914]
B:BD[26.2892] → [26.2892:2914]
```
  parseJSON _ = mzero
```
[22.12167]
[26.2914]
```
  parseJSON _          = mzero
```

stylish-haskell reformatting

Dependencies

In channels

Change contents

Replacement in lib/Aftok/Billables.hs at line 7 [3.760]

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

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

Replacement in lib/Aftok/Billables.hs at line 23 [3.760]

Replacement in lib/Aftok/Billables.hs at line 27 [3.760]

Replacement in lib/Aftok/Billables.hs at line 31 [3.760]

Replacement in lib/Aftok/Billables.hs at line 34 [3.760]

Replacement in lib/Aftok/Billables.hs at line 38 [3.760]

Replacement in lib/Aftok/Billables.hs at line 41 [3.760]

Replacement in lib/Aftok/Billables.hs at line 45 [3.760]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 9 [7.456]

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

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 23 [7.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 30 [7.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 36 [7.456]

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

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

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 106 [7.456]

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

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 209 [7.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 212 [7.456]

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

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 218 [7.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 467 [7.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 470 [7.456]

Replacement in lib/Aftok/Database.hs at line 178 [9.4936]

Deletion in lib/Aftok/Database.hs at line 187 [9.4936]

Insertion in lib/Aftok/Database.hs at line 188 [9.4936]

Replacement in lib/Aftok/Interval.hs at line 48 [12.1422]

Deletion in lib/Aftok/Json.hs at line 13 [15.19]

Replacement in lib/Aftok/Json.hs at line 14 [15.19]

Replacement in lib/Aftok/Json.hs at line 19 [15.19]

Replacement in lib/Aftok/Json.hs at line 34 [15.19]

Replacement in lib/Aftok/Json.hs at line 88 [15.19]

Replacement in lib/Aftok/Json.hs at line 189 [15.19]

Replacement in lib/Aftok/Json.hs at line 240 [15.19]

Replacement in lib/Aftok/Json.hs at line 242 [15.19]

Replacement in lib/Aftok/Json.hs at line 247 [15.19]

Replacement in lib/Aftok/Json.hs at line 252 [15.19]

Replacement in lib/Aftok/Json.hs at line 259 [15.19]

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

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

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

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

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

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

Replacement in lib/Aftok/Time.hs at line 5 [3.6473]

Replacement in lib/Aftok/TimeLog.hs at line 70 [20.846]

Replacement in lib/Aftok/Types.hs at line 8 [21.805]

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

Replacement in lib/Aftok/Util.hs at line 8 [22.10061]

Replacement in lib/Aftok/Util.hs at line 22 [22.10061]

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

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

Replacement in server/Aftok/Snaplet/Auctions.hs at line 48 [25.2441]

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

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

Replacement in server/Aftok/Snaplet/Projects.hs at line 36 [26.2363]