nuttycom/aftok - Change ZP62WC472OTQETO2HTHIQIPO57XZIWVKPA4KL62GYU4OZDMB6NSAC

Begin conversion to build with stack.

Created by Kris Nuttycombe on February 19, 2016

ZP62WC472OTQETO2HTHIQIPO57XZIWVKPA4KL62GYU4OZDMB6NSAC

Dependencies

In channels

main

Change contents

File deletion: payouts
BF:BFD[3.2] → [4.1483:1501]
BF:BFD[4.1501] → [4.1482:1482]

File deletion: Main.hs

BF:BFD[4.1482] → [4.2851:2882]

BF:BFD[4.2882] → [4.1503:1503]

B:BD[4.1503] → [4.1504:1711]

∅:D[5.314] → [4.1711:1745]

B:BD[4.1711] → [4.1711:1745]

B:BD[4.1745] → [6.7028:7055]

∅:D[7.834] → [4.1745:1770]

∅:D[8.2020] → [4.1745:1770]

∅:D[9.6861] → [4.1745:1770]

B:BD[4.1745] → [4.1745:1770]

B:BD[4.1770] → [8.2021:2061]

∅:D[5.358] → [4.1814:1866]

∅:D[8.2061] → [4.1814:1866]

B:BD[4.1814] → [4.1814:1866]

B:BD[4.1902] → [4.1902:1926]

∅:D[10.38] → [4.1926:1990]

B:BD[4.1926] → [4.1926:1990]

B:BD[4.1990] → [5.359:451]

∅:D[5.451] → [4.2068:2102]

B:BD[4.2068] → [4.2068:2102]

∅:D[5.477] → [11.523:541]

B:BD[4.2102] → [11.523:541]

∅:D[11.541] → [4.2107:2108]

B:BD[4.2107] → [4.2107:2108]

B:BD[4.2108] → [6.7056:7104]

∅:D[6.7104] → [5.516:541]

B:BD[5.516] → [5.516:541]

B:BD[5.541] → [12.2329:2366]

∅:D[12.2366] → [5.542:627]

B:BD[4.2223] → [5.542:627]

∅:D[5.627] → [4.2223:2464]

B:BD[4.2223] → [4.2223:2464]

∅:D[5.686] → [4.2464:2465]

B:BD[4.2464] → [4.2464:2465]

B:BD[4.2465] → [5.687:799]

∅:D[5.799] → [4.2557:2655]

B:BD[4.2557] → [4.2557:2655]

B:BD[4.2655] → [5.800:913]

∅:D[5.913] → [4.2773:2798]

B:BD[4.2773] → [4.2773:2798]

B:BD[4.2798] → [9.6862:6909]

∅:D[5.957] → [4.2798:2850]

∅:D[9.6909] → [4.2798:2850]

B:BD[4.2798] → [4.2798:2850]

B:BD[4.2850] → [9.6910:6963]

B:BD[4.2464] → [5.628:686]

B:BD[4.2102] → [5.452:477]

B:BD[4.1926] → [10.2:38]

∅:D[6.7055] → [7.810:811]

B:BD[4.1745] → [7.810:811]

B:BD[7.811] → [8.1979:2020]

B:BD[4.1711] → [5.267:314]

{-# LANGUAGE ScopedTypeVariables, OverloadedStrings, NoImplicitPrelude #-}
module Main where
import ClassyPrelude 
import Network.Bitcoin
import Control.Concurrent
import qualified Data.Configurator as C
import qualified Data.Vector as V
import System.IO(FilePath)
main :: IO ()
main = do
  cfg <- loadConfig "aftok-payouts.cfg"
  loop cfg
loop :: QPConfig -> IO ()
loop cfg = do
  distributePayouts cfg
  loop cfg
data QPConfig = QPConfig
  { pollingInterval :: Int
  , bitcoindUrl :: String
  , bitcoindUser :: ByteString
  , bitcoindPassword :: ByteString
  , payoutMinConfirmations :: Int
  } deriving Show
loadConfig :: System.IO.FilePath -> IO QPConfig
loadConfig cfgFile = do 
  cfg <- C.load [C.Required cfgFile]
  parseQPConfig cfg
parseQPConfig :: CT.Config -> IO QPConfig
parseQPConfig cfg =  
  QPConfig <$> C.require cfg "pollingInterval" 
           <*> C.require cfg "bitcoindUrl" 
           <*> C.require cfg "bitcoindUser" 
           <*> C.require cfg "bitcoindPassword" 
           <*> C.require cfg "payoutMinConfirmations" 
btcClient :: QPConfig -> IO Client
btcClient = getClient <$> bitcoindUrl <*> bitcoindUser <*> bitcoindPassword 
distributePayouts :: QPConfig -> IO ()
distributePayouts cfg = do
  -- find unspent transactions
  client <- btcClient cfg
  unspent <- listUnspent client (Just . payoutMinConfirmations $ cfg) Nothing V.empty 
  -- get payouts amounts
  (Payouts p) <- currentPayouts (qcConfig cfg)
  -- create a new txn spending all UTXOs to payouts
  putStrLn . tshow $ unspent
  putStrLn . tshow $ p 
           <*> parseQCConfig (C.subconfig "qcConfig" cfg)
  , qcConfig :: QCConfig
  threadDelay (pollingInterval cfg)
import Aftok.Client
import Aftok.TimeLog
import qualified Data.Configurator.Types as CT

Insertion in .gitignore at line 4 [14.135]
[13.27]
[13.27]
```
.stack-work
```

Replacement in aftok.cabal at line 35 [16.1]

B:BD[15.316] → [15.316:387]

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

[15.316]

[15.387]

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

Replacement in aftok.cabal at line 44 [16.1]

B:BD[15.494] → [15.494:541]

    , errors              >= 1.4      && < 1.5

[15.494]

[17.35]

    , errors              == 2.1.*

Replacement in aftok.cabal at line 51 [16.1]

B:BD[17.68] → [15.686:781]

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

[17.68]

[15.781]

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

Replacement in aftok.cabal at line 54 [16.1]

B:BD[15.815] → [15.815:862]

    , postgresql-simple   >= 0.4.10   && < 0.5

[15.815]

[15.862]

    , postgresql-simple   == 0.5.*

Deletion in aftok.cabal at line 132 [16.1]

∅:D[15.1612] → [4.3217:3218]

∅:D[6.7402] → [4.3217:3218]

∅:D[18.7495] → [4.3217:3218]

B:BD[19.545] → [4.3217:3218]

B:BD[4.3218] → [8.519:544]

∅:D[8.544] → [4.3246:3346]

B:BD[4.3246] → [4.3246:3346]

B:BD[4.3346] → [20.547:707]

∅:D[20.707] → [4.3346:3399]

B:BD[4.3346] → [4.3346:3399]

B:BD[4.3399] → [8.545:557]

∅:D[8.557] → [4.3414:3567]

B:BD[4.3414] → [4.3414:3567]

B:BD[4.3567] → [21.2978:2990]

∅:D[21.2990] → [4.3578:3698]

B:BD[4.3578] → [4.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 [22.5084]
∅:D[12.20] → [18.3:26]
∅:D[15.1645] → [18.3:26]
B:BD[23.43] → [18.3:26]
```
import Network.Bitcoin
```
Insertion in lib/Aftok/Auction.hs at line 12 [22.5084]
[8.775]
[22.5213]
```
import Aftok.Types
```
Replacement in lib/Aftok/Auction.hs at line 18 [22.5084]
B:BD[22.5273] → [24.117:141]
```
  { _raiseAmount :: BTC
```
[22.5273]
[15.1646]
```
  { _raiseAmount :: Satoshi
```
Replacement in lib/Aftok/Auction.hs at line 29 [22.5084]
B:BD[25.142] → [25.142:165]
```
  , _bidAmount  :: BTC
```
[25.142]
[15.1677]
```
  , _bidAmount  :: Satoshi
```

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

B:BD[23.397] → [23.397:444]

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

[23.397]

[23.444]

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

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

B:BD[18.333] → [18.333:403]

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

[18.333]

[2.64]

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

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 21 [18.456]
B:BD[18.988] → [18.988:1011]
```
import Network.Bitcoin
```
Insertion in lib/Aftok/Database/PostgreSQL.hs at line 27 [18.456]
[8.1201]
[9.1123]
```
import Aftok.Types
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 75 [18.456]
B:BD[18.1546] → [18.1546:1575]
```
btcParser :: FieldParser BTC
```
[18.1546]
[26.4]
```
btcParser :: FieldParser Satoshi
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 81 [18.456]

∅:D[27.272] → [26.161:186]

B:BD[18.2338] → [26.161:186]

∅:D[26.186] → [18.2374:2483]

B:BD[18.2374] → [18.2374:2483]

newtype PBTC = PBTC BTC 
instance ToField PBTC where
  toField (PBTC btc) = Plain . fromByteString . fromString $ showFixed False btc

[27.272]

[12.223]

newtype PSatoshi = PSatoshi Satoshi 
instance ToField PSatoshi where
  toField (PSatoshi btc) = Plain . fromByteString . fromString $ showFixed False btc

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 221 [18.456]

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

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

[17.3162]

[18.5182]

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

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 235 [18.456]
B:BD[17.3733] → [17.3733:3768]
```
      , bid ^. (bidAmount.to PBTC)
```
[17.3733]
[15.3080]
```
      , bid ^. (bidAmount.to PSatoshi)
```

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

[8.679]

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

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

[3.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

Begin conversion to build with stack.

Dependencies

In channels

Change contents

File deletion: payouts

File deletion: Main.hs

Insertion in .gitignore at line 4 [14.135]

Replacement in aftok.cabal at line 35 [16.1]

Replacement in aftok.cabal at line 44 [16.1]

Replacement in aftok.cabal at line 51 [16.1]

Replacement in aftok.cabal at line 54 [16.1]

Deletion in aftok.cabal at line 132 [16.1]

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

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

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

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

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

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

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 21 [18.456]

Insertion in lib/Aftok/Database/PostgreSQL.hs at line 27 [18.456]

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

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 81 [18.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 221 [18.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 235 [18.456]

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

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