nuttycom/aftok - Change KEP5WUFJXTMKRRNZLYTGYYWA4VLFCMHTKTJYF5EA5IWBYFMU6WYQC

Convert project to stack-based build.

Created by Kris Nuttycombe on February 19, 2016

KEP5WUFJXTMKRRNZLYTGYYWA4VLFCMHTKTJYF5EA5IWBYFMU6WYQC

Dependencies

In channels

main

Change contents

Insertion in .gitignore at line 4 [4.135]
[3.27]
[3.27]
```
.stack-work
```

Replacement in aftok.cabal at line 35 [6.1]

B:BD[5.316] → [5.316:387]

    , aeson               == 0.8.*
    , attoparsec          == 0.12.*

[5.316]

[5.387]

    , aeson               == 0.9.*
    , attoparsec          == 0.13.*

Replacement in aftok.cabal at line 44 [6.1]

B:BD[5.494] → [5.494:541]

    , errors              >= 1.4      && < 1.5

[5.494]

[7.35]

    , errors              == 2.1.*

Replacement in aftok.cabal at line 51 [6.1]

B:BD[7.68] → [5.686:781]

    , lens                >= 4.11     && < 4.12
    , network-bitcoin     >= 1.8      && < 1.9

[7.68]

[5.781]

    , lens                >= 4.11
    --, network-bitcoin     >= 1.8      && < 1.9

Replacement in aftok.cabal at line 54 [6.1]

B:BD[5.815] → [5.815:862]

    , postgresql-simple   >= 0.4.10   && < 0.5

[5.815]

[5.862]

    , postgresql-simple   == 0.5.*

Deletion in aftok.cabal at line 132 [6.1]

∅:D[5.1612] → [8.3217:3218]

∅:D[9.7402] → [8.3217:3218]

∅:D[10.7495] → [8.3217:3218]

B:BD[11.545] → [8.3217:3218]

B:BD[8.3218] → [12.519:544]

∅:D[12.544] → [8.3246:3346]

B:BD[8.3246] → [8.3246:3346]

B:BD[8.3346] → [13.547:707]

∅:D[13.707] → [8.3346:3399]

B:BD[8.3346] → [8.3346:3399]

B:BD[8.3399] → [12.545:557]

∅:D[12.557] → [8.3414:3567]

B:BD[8.3414] → [8.3414:3567]

B:BD[8.3567] → [14.2978:2990]

∅:D[14.2990] → [8.3578:3698]

B:BD[8.3578] → [8.3578:3698]


Executable aftok-payouts
  default-language:   Haskell2010
  ghc-options:        -Wall -Werror
  hs-source-dirs:     payouts
  default-extensions: NoImplicitPrelude
                    , OverloadedStrings
                    , RecordWildCards
                    , ScopedTypeVariables
  main-is:            Main.hs
  build-depends:      
      aftok
    , base
    , classy-prelude            >= 0.10.2
    , containers
    , either
    , mtl                       >= 2     && < 3
    , lens
    , text
    , thyme
    , vector
    , transformers
    , configurator
    , optparse-applicative
    , bytestring
    , network-bitcoin

Deletion in lib/Aftok/Auction.hs at line 10 [16.5084]
∅:D[15.20] → [10.3:26]
∅:D[5.1645] → [10.3:26]
B:BD[17.43] → [10.3:26]
```
import Network.Bitcoin
```
Insertion in lib/Aftok/Auction.hs at line 12 [16.5084]
[12.775]
[16.5213]
```
import Aftok.Types
```
Replacement in lib/Aftok/Auction.hs at line 18 [16.5084]
B:BD[16.5273] → [18.117:141]
```
  { _raiseAmount :: BTC
```
[16.5273]
[5.1646]
```
  { _raiseAmount :: Satoshi
```
Replacement in lib/Aftok/Auction.hs at line 29 [16.5084]
B:BD[19.142] → [19.142:165]
```
  , _bidAmount  :: BTC
```
[19.142]
[5.1677]
```
  , _bidAmount  :: Satoshi
```

Replacement in lib/Aftok/Auction.hs at line 45 [16.5084]

B:BD[17.397] → [17.397:444]

  let takeWinningBids :: BTC -> [Bid] -> [Bid]

[17.397]

[17.444]

  let takeWinningBids :: Satoshi -> [Bid] -> [Bid]

Replacement in lib/Aftok/Auction.hs at line 54 [16.5084]

B:BD[10.333] → [10.333:403]

              winFraction = toRational $ remainder / (x ^. bidAmount)

[10.333]

[2.64]

              winFraction = toRational remainder / toRational (x ^. bidAmount)

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 5 [10.456]
B:BD[10.623] → [10.623:672]
```
import Blaze.ByteString.Builder (fromByteString)
```
Deletion in lib/Aftok/Database/PostgreSQL.hs at line 10 [10.456]
∅:D[20.38] → [10.713:731]
∅:D[9.117] → [10.713:731]
∅:D[5.1801] → [10.713:731]
B:BD[10.713] → [10.713:731]
```
import Data.Fixed
```
Deletion in lib/Aftok/Database/PostgreSQL.hs at line 16 [10.456]
B:BD[10.820] → [10.820:862]
```
import Database.PostgreSQL.Simple.ToField
```
Deletion in lib/Aftok/Database/PostgreSQL.hs at line 18 [10.456]
B:BD[10.988] → [10.988:1011]
```
import Network.Bitcoin
```
Insertion in lib/Aftok/Database/PostgreSQL.hs at line 24 [10.456]
[12.1201]
[21.1123]
```
import Aftok.Types
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 72 [10.456]

B:BD[10.1546] → [10.1546:1575]

B:BD[10.1575] → [22.4:51]

btcParser :: FieldParser BTC
btcParser f v = fromRational <$> fromField f v

[10.1546]

[14.57]

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

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 78 [10.456]
∅:D[23.272] → [22.161:186]
B:BD[10.2338] → [22.161:186]
∅:D[22.186] → [10.2374:2483]
B:BD[10.2374] → [10.2374:2483]
B:BD[15.223] → [15.223:224]
```
newtype PBTC = PBTC BTC 
instance ToField PBTC where
  toField (PBTC btc) = Plain . fromByteString . fromString $ showFixed False btc
```

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

∅:D[7.383] → [9.554:614]

B:BD[9.554] → [9.554:614]

        <*> fieldWith uidParser 
        <*> logEntryParser

[7.383]

[9.614]

       <*> fieldWith uidParser 
       <*> logEntryParser

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 92 [10.456]
B:BD[9.669] → [5.2105:2144]
```
  Auction <$> (fromRational <$> field)
```
[9.669]
[5.2144]
```
  Auction <$> fieldWith btcParser
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 214 [10.456]

B:BD[7.3162] → [2.451:541]

      (pid ^. _ProjectId, auc ^. (raiseAmount.to PBTC), auc ^. (auctionEnd.to fromThyme))

[7.3162]

[10.5182]

      (pid ^. _ProjectId, auc ^. (raiseAmount.to fromSatoshi), auc ^. (auctionEnd.to fromThyme))

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 228 [10.456]
B:BD[7.3733] → [7.3733:3768]
```
      , bid ^. (bidAmount.to PBTC)
```
[7.3733]
[5.3080]
```
      , bid ^. (bidAmount.to fromSatoshi)
```

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

[12.679]

{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Aftok.Types where
import Data.Word
import ClassyPrelude
newtype Satoshi = Satoshi { fromSatoshi :: Word64 }
                  deriving (Show, Eq, Ord, Num, Real, Bounded)

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

[24.2]

flags: {}
packages:
- '.'
extra-deps: 
- snaplet-postgresql-simple-0.6.0.4
- resource-pool-catchio-0.2.1.0
resolver: lts-5.3
#allow-newer: true

Convert project to stack-based build.

Dependencies

In channels

Change contents

Insertion in .gitignore at line 4 [4.135]

Replacement in aftok.cabal at line 35 [6.1]

Replacement in aftok.cabal at line 44 [6.1]

Replacement in aftok.cabal at line 51 [6.1]

Replacement in aftok.cabal at line 54 [6.1]

Deletion in aftok.cabal at line 132 [6.1]

Deletion in lib/Aftok/Auction.hs at line 10 [16.5084]

Insertion in lib/Aftok/Auction.hs at line 12 [16.5084]

Replacement in lib/Aftok/Auction.hs at line 18 [16.5084]

Replacement in lib/Aftok/Auction.hs at line 29 [16.5084]

Replacement in lib/Aftok/Auction.hs at line 45 [16.5084]

Replacement in lib/Aftok/Auction.hs at line 54 [16.5084]

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 5 [10.456]

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

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 16 [10.456]

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 18 [10.456]

Insertion in lib/Aftok/Database/PostgreSQL.hs at line 24 [10.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 72 [10.456]

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 78 [10.456]

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

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

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 214 [10.456]

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

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

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