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

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

import Aftok.Types

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

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

       <*> fieldWith uidParser 
       <*> logEntryParser

  Auction <$> fieldWith btcParser

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

      , bid ^. (bidAmount.to fromSatoshi)

import Aftok.Types

  { _raiseAmount :: Satoshi

  , _bidAmount  :: Satoshi

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

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

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

    , errors              == 2.1.*

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

    , postgresql-simple   == 0.5.*

.stack-work