import Blaze.ByteString.Builder (fromByteString)

import Data.Fixed

import Database.PostgreSQL.Simple.ToField

btcParser f v = fromRational <$> fromField f v

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

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

        <*> fieldWith uidParser 
        <*> logEntryParser

       <*> fieldWith uidParser 
       <*> logEntryParser

  Auction <$> (fromRational <$> field)

  Auction <$> fieldWith btcParser

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

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

      , bid ^. (bidAmount.to PSatoshi)

      , bid ^. (bidAmount.to fromSatoshi)

newtype Satoshi = Satoshi Word64

newtype Satoshi = Satoshi { fromSatoshi :: Word64 }