nuttycom/aftok - Change NAS4BFL43SIUAAC663R6VFBHQ2DKI45K6Y6ZKVQI7S5547HBAN7QC

Trivial stylish-haskell reformat.

Created by Kris Nuttycombe on October 30, 2016

NAS4BFL43SIUAAC663R6VFBHQ2DKI45K6Y6ZKVQI7S5547HBAN7QC

Dependencies

In channels

main

Change contents

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

B:BD[3.96] → [4.17:57]

∅:D[4.57] → [6.3:41]

B:BD[3.135] → [6.3:41]

import           Data.Thyme.Clock  as C
import           Data.Thyme.Format ()

[3.96]

[3.135]

import           Data.Thyme.Clock    as C
import           Data.Thyme.Format   ()

Replacement in lib/Aftok/Auction.hs at line 13 [5.5084]

B:BD[7.27] → [8.53:85]

B:BD[8.85] → [9.3:46]

∅:D[9.46] → [8.85:128]

B:BD[8.85] → [8.85:128]

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

[7.27]

[5.5213]

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

Replacement in lib/Aftok/Auction.hs at line 21 [5.5084]

B:BD[3.239] → [9.47:106]

  { _projectId    :: ProjectId
  , _initiator    :: UserId

[3.239]

[10.69]

  { _projectId   :: ProjectId
  , _initiator   :: UserId

Replacement in lib/Aftok/Auction.hs at line 24 [5.5084]
B:BD[10.102] → [10.102:131]
```
  , _raiseAmount  :: Satoshi
```
[10.102]
[10.131]
```
  , _raiseAmount :: Satoshi
```
Replacement in lib/Aftok/Auction.hs at line 26 [5.5084]
∅:D[10.164] → [8.158:189]
B:BD[8.158] → [8.158:189]
```
  , _auctionEnd   :: C.UTCTime
```
[10.164]
[5.5319]
```
  , _auctionEnd  :: C.UTCTime
```
Replacement in lib/Aftok/Auction.hs at line 42 [5.5084]
B:BD[8.219] → [8.219:239]
```
  { _baseBid :: Bid
```
[8.219]
[8.239]
```
  { _baseBid           :: Bid
```
Replacement in lib/Aftok/Auction.hs at line 44 [5.5084]
B:BD[8.273] → [8.273:306]
```
  , _commitmentAmount :: Satoshi
```
[8.273]
[8.306]
```
  , _commitmentAmount  :: Satoshi
```
Replacement in lib/Aftok/Auction.hs at line 99 [5.5084]
B:BD[8.551] → [8.551:588]
```
      put (x + bid ^. bidAmount) >> 
```
[8.551]
[8.588]
```
      put (x + bid ^. bidAmount) >>
```
Replacement in lib/Aftok/Auction.hs at line 110 [5.5084]
B:BD[8.1075] → [8.1075:1094]
```
    -- otherwise, 
```
[8.1075]
[8.1094]
```
    -- otherwise,
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 22 [7.456]
B:BD[3.1583] → [10.167:203]
```
import           Aftok.Auction as A
```
[3.1583]
[3.1614]
```
import           Aftok.Auction                        as A
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 25 [7.456]
B:BD[3.1678] → [10.204:240]
```
import           Aftok.Project as P
```
[3.1678]
[3.1678]
```
import           Aftok.Project                        as P
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 88 [7.456]
B:BD[11.1043] → [11.1043:1086]
```
      parser tname = pure $ case tname of 
```
[11.1043]
[11.1086]
```
      parser tname = pure $ case tname of
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 96 [7.456]
B:BD[11.1480] → [11.1480:1528]
```
    _ -> conversionError $ 
      Incompatible 
```
[11.1480]
[11.1528]
```
    _ -> conversionError $
      Incompatible
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 104 [7.456]
B:BD[11.1679] → [11.1679:1682]
```
  
```
[11.1679]
[11.1682]

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

B:BD[12.75] → [12.75:121]

    case c of 
      CreditToAddress addr ->

[12.75]

[12.121]

    case c of
      CreditToAddress addr ->

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 258 [7.456]
B:BD[12.1933] → [12.1933:1960]
```
      CreditToUser uid -> 
```
[12.1933]
[11.2985]
```
      CreditToUser uid ->
```

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

B:BD[13.270] → [10.698:770]

import           Aftok.Project as P
import           Aftok.Auction as A

[13.270]

[13.301]

import           Aftok.Auction    as A

Insertion in lib/Aftok/Database.hs at line 15 [14.4936]
[13.333]
[13.333]
```
import           Aftok.Project    as P
```
Replacement in lib/Aftok/Database.hs at line 171 [14.4936]
B:BD[9.828] → [9.828:851]
```
findAuction aid uid = 
```
[9.828]
[15.147]
```
findAuction aid uid =
```
Replacement in lib/Aftok/Database.hs at line 179 [14.4936]
B:BD[15.347] → [15.347:371]
```
findAuction' aid uid = 
```
[15.347]
[15.371]
```
findAuction' aid uid =
```
Replacement in lib/Aftok/Database.hs at line 187 [14.4936]
B:BD[16.80] → [15.583:608]
```
createBid aid uid bid = 
```
[16.80]
[16.141]
```
createBid aid uid bid =
```

Replacement in lib/Aftok/Database.hs at line 191 [14.4936]

B:BD[15.650] → [15.650:702]

    fc $ if view bidTime bid > view auctionEnd auc

[15.650]

[15.702]

    fc $ if view bidTime bid > view auctionEnd auc

Insertion in lib/Aftok/Json.hs at line 2 [18.19]
[17.3609]
[13.881]
```
{-# LANGUAGE ExplicitForAll     #-}
```
Insertion in lib/Aftok/Json.hs at line 15 [18.19]
[13.1159]
[13.1159]
```
import           Data.HashMap.Strict              as O
```
Deletion in lib/Aftok/Json.hs at line 18 [18.19]
B:BD[13.1270] → [19.735:790]
```
import           Data.HashMap.Strict              as O
```
Replacement in lib/Aftok/Json.hs at line 156 [18.19]
B:BD[20.1833] → [19.1626:1665]
```
logEntryJSON (LogEntry c ev m) = v2 $ 
```
[20.1833]
[2.2236]
```
logEntryJSON (LogEntry c ev m) = v2 $
```
Replacement in lib/Aftok/Json.hs at line 171 [18.19]
B:BD[2.2423] → [2.2423:2471]
```
parseCreditTo = unversion "CreditTo" $ p where 
```
[2.2423]
[2.2471]
```
parseCreditTo = unversion "CreditTo" $ p where
```
Replacement in lib/Aftok/Json.hs at line 176 [18.19]
B:BD[2.2596] → [2.2596:2642]
```
parseCreditToV1 :: Object -> Parser CreditTo 
```
[2.2596]
[2.2642]
```
parseCreditToV1 :: Object -> Parser CreditTo
```

Replacement in lib/Aftok/Json.hs at line 180 [18.19]

B:BD[2.2768] → [2.2768:2819]

parseCreditToV2 o = 
  let parseCreditToAddr o' =

[2.2768]

[2.2819]

parseCreditToV2 o =
  let parseCreditToAddr o' =

Replacement in lib/Aftok/Json.hs at line 184 [18.19]
B:BD[2.2902] → [2.2902:2932]
```
      parseCreditToUser o' = 
```
[2.2902]
[2.2932]
```
      parseCreditToUser o' =
```
Replacement in lib/Aftok/Json.hs at line 187 [18.19]
B:BD[2.3013] → [2.3013:3046]
```
      parseCreditToProject o' = 
```
[2.3013]
[2.3046]
```
      parseCreditToProject o' =
```
Replacement in lib/Aftok/Json.hs at line 199 [18.19]
B:BD[2.3539] → [2.3539:3563]
```
  p (Version 2 0) v =  
```
[2.3539]
[2.3563]
```
  p (Version 2 0) v =
```
Replacement in lib/Aftok/Json.hs at line 217 [18.19]
B:BD[11.4481] → [2.4293:4328]
```
  in  o .: "amendment" >>= parseA 
```
[11.4481]
[19.2512]
```
  in  o .: "amendment" >>= parseA
```
Replacement in lib/Aftok/Json.hs at line 226 [18.19]
B:BD[11.4591] → [2.4638:4673]
```
  in  o .: "amendment" >>= parseA 
```
[11.4591]
[19.2983]
```
  in  o .: "amendment" >>= parseA
```
Replacement in lib/Aftok/Json.hs at line 239 [18.19]
B:BD[21.87] → [2.4674:4722]
```
parseLogEntry f = unversion "LogEntry" p where 
```
[21.87]
[2.4722]
```
parseLogEntry f = unversion "LogEntry" p where
```
Replacement in lib/Aftok/Project.hs at line 1 [10.1031]
B:BD[10.1031] → [10.1032:1068]
```
{-# LANGUAGE TemplateHaskell    #-}
```
[10.1031]
[10.1068]
```
{-# LANGUAGE TemplateHaskell #-}
```
Replacement in lib/Aftok/TimeLog.hs at line 36 [22.846]
B:BD[3.4695] → [19.4518:4561]
```
import           Aftok.Project (ProjectId)
```
[3.4695]
[22.1224]
```
import           Aftok.Project      (ProjectId)
```
Replacement in lib/Aftok/TimeLog.hs at line 58 [22.846]
B:BD[19.4563] → [19.4563:4578]
```
data CreditTo 
```
[19.4563]
[19.4578]
```
data CreditTo
```
Replacement in lib/Aftok/TimeLog.hs at line 60 [22.846]
B:BD[19.4662] → [19.4662:4691]
```
  = CreditToAddress BtcAddr 
```
[19.4662]
[19.4691]
```
  = CreditToAddress BtcAddr
```

Replacement in lib/Aftok/TimeLog.hs at line 63 [22.846]

B:BD[19.4786] → [19.4786:4847]

  -- payouts are distributed to this project's contributors

[19.4786]

[19.4847]

  -- payouts are distributed to this project's contributors

Replacement in lib/Aftok/Types.hs at line 2 [23.805]
B:BD[23.850] → [24.784:817]
```
{-# LANGUAGE TemplateHaskell #-}
```
[23.850]
[23.850]
```
{-# LANGUAGE TemplateHaskell            #-}
```

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

B:BD[25.2690] → [3.5837:5906]

import           Control.Lens               (makeLenses, makePrisms)

[25.2690]

[3.5906]

import           Control.Lens     (makeLenses, makePrisms)

Replacement in server/Aftok/Snaplet/Auctions.hs at line 13 [10.2441]

B:BD[10.2636] → [16.609:661]

∅:D[16.661] → [10.2636:2677]

B:BD[10.2636] → [10.2636:2677]

import           Data.Hourglass.Types (Seconds(..))
import           Data.Thyme.Clock   as C

[10.2636]

[10.2723]

import           Data.Hourglass.Types (Seconds (..))
import           Data.Thyme.Clock     as C

Replacement in server/Aftok/Snaplet/Auctions.hs at line 16 [10.2441]

B:BD[10.2724] → [16.662:860]

import           Aftok              (UserId)
import           Aftok.Auction      (AuctionId, Auction(..), BidId, Bid(..))
import           Aftok.Database     (createAuction, findAuction, createBid)

[10.2724]

[10.2837]

import           Aftok                (UserId)
import           Aftok.Auction        (Auction (..), AuctionId, Bid (..), BidId)
import           Aftok.Database       (createAuction, createBid, findAuction)

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

B:BD[3.7824] → [24.1233:1293]

import           Aftok.Auction              (AuctionId(..))

[3.7824]

import           Aftok.Auction              (AuctionId (..))

Deletion in server/Aftok/Snaplet/Auth.hs at line 12 [26.203]
B:BD[3.7856] → [3.7856:7887]
```
import           Aftok.Snaplet
```
Insertion in server/Aftok/Snaplet/Auth.hs at line 13 [26.203]
[10.3758]
[3.7887]
```
import           Aftok.Snaplet
```
Replacement in server/Aftok/Snaplet/Projects.hs at line 4 [27.2363]
B:BD[27.2398] → [10.3760:3791]
```
module Aftok.Snaplet.Projects 
```
[27.2398]
[10.3791]
```
module Aftok.Snaplet.Projects
```
Replacement in server/Aftok/Snaplet/WorkLog.hs at line 11 [28.5424]
B:BD[28.5642] → [29.1064:1102]
```
import           Aftok (parseBtcAddr)
```
[28.5642]
[3.9836]
```
import           Aftok              (parseBtcAddr)
```
Deletion in server/Main.hs at line 13 [30.5188]
B:BD[3.11453] → [3.11453:11489]
```
import           Aftok.Snaplet.Auth
```
Insertion in server/Main.hs at line 14 [30.5188]
[10.4162]
[3.11489]
```
import           Aftok.Snaplet.Auth
```

Trivial stylish-haskell reformat.

Dependencies

In channels

Change contents

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

Replacement in lib/Aftok/Auction.hs at line 13 [5.5084]

Replacement in lib/Aftok/Auction.hs at line 21 [5.5084]

Replacement in lib/Aftok/Auction.hs at line 24 [5.5084]

Replacement in lib/Aftok/Auction.hs at line 26 [5.5084]

Replacement in lib/Aftok/Auction.hs at line 42 [5.5084]

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

Replacement in lib/Aftok/Auction.hs at line 99 [5.5084]

Replacement in lib/Aftok/Auction.hs at line 110 [5.5084]

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

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

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

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

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

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

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

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

Insertion in lib/Aftok/Database.hs at line 15 [14.4936]

Replacement in lib/Aftok/Database.hs at line 171 [14.4936]

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

Replacement in lib/Aftok/Database.hs at line 187 [14.4936]

Replacement in lib/Aftok/Database.hs at line 191 [14.4936]

Insertion in lib/Aftok/Json.hs at line 2 [18.19]

Insertion in lib/Aftok/Json.hs at line 15 [18.19]

Deletion in lib/Aftok/Json.hs at line 18 [18.19]

Replacement in lib/Aftok/Json.hs at line 156 [18.19]

Replacement in lib/Aftok/Json.hs at line 171 [18.19]

Replacement in lib/Aftok/Json.hs at line 176 [18.19]

Replacement in lib/Aftok/Json.hs at line 180 [18.19]

Replacement in lib/Aftok/Json.hs at line 184 [18.19]

Replacement in lib/Aftok/Json.hs at line 187 [18.19]

Replacement in lib/Aftok/Json.hs at line 199 [18.19]

Replacement in lib/Aftok/Json.hs at line 217 [18.19]

Replacement in lib/Aftok/Json.hs at line 226 [18.19]

Replacement in lib/Aftok/Json.hs at line 239 [18.19]

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

Replacement in lib/Aftok/TimeLog.hs at line 36 [22.846]

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

Replacement in lib/Aftok/TimeLog.hs at line 60 [22.846]

Replacement in lib/Aftok/TimeLog.hs at line 63 [22.846]

Replacement in lib/Aftok/Types.hs at line 2 [23.805]

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

Replacement in server/Aftok/Snaplet/Auctions.hs at line 13 [10.2441]

Replacement in server/Aftok/Snaplet/Auctions.hs at line 16 [10.2441]

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

Deletion in server/Aftok/Snaplet/Auth.hs at line 12 [26.203]

Insertion in server/Aftok/Snaplet/Auth.hs at line 13 [26.203]

Replacement in server/Aftok/Snaplet/Projects.hs at line 4 [27.2363]

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

Deletion in server/Main.hs at line 13 [30.5188]

Insertion in server/Main.hs at line 14 [30.5188]