import Control.Error.Safe

import Control.Monad.Trans.Either
import Data.Text.Lens

import Data.Hourglass

import Database.SQLite.Simple.ToField

newtype PBid = PBid Bid
makePrisms ''PBid
instance FromRow PBid where
  fromRow = 
    let bidParser = Bid <$> fmap UserId field <*> fmap Seconds field <*> fmap BTC field <*> field
    in  fmap PBid bidParser
newtype PSeconds = PSeconds Seconds
instance ToField PSeconds where 
  toField (PSeconds (Seconds i)) = toField i
newtype PUserId = PUserId UserId
instance ToField PUserId where 
  toField (PUserId (UserId i)) = toField i
newtype PAuctionId = PAuctionId AuctionId
instance ToField PAuctionId where 
  toField (PAuctionId (AuctionId i)) = toField i
newtype PBTC = PBTC BTC
instance ToField PBTC where
  toField (PBTC (BTC i)) = toField i

readAuction' (AuctionId aid) = do

readAuction' aucId = do

    (Only aid)

    (Only $ PAuctionId aucId)

recordBid' (AuctionId aid) bid = do

recordBid' aucId bid = do

    (aid, bid ^. bidUser, bid ^. bidSeconds, bid ^. bidAmount, bid ^. bidTime)

    ( PAuctionId aucId
    , PUserId $ bid ^. bidUser
    , PSeconds $ bid ^. bidSeconds
    , PBTC $ bid ^. bidAmount
    , bid ^. bidTime
    )

readBids' :: AuctionId -> ReaderT Connection IO [(UTCTime, Bid)]
readBids' = undefined

readBids' :: AuctionId -> ReaderT Connection IO [Bid]
readBids' aucId = do
  conn <- ask
  rows <- lift $ query conn
    "SELECT user_id, bid_seconds, bid_amount, bid_time FROM bids WHERE auction_id = ?"
    (Only $ PAuctionId aucId)
  lift . return $ fmap (^. _PBid) rows

createUser' = undefined

createUser' user = do
  conn <- ask
  lift $ execute conn
    "INSERT INTO users (btc_addr, email) VALUES (?, ?)"
    (user ^. (userAddress . address), user ^. userEmail)
  lift . fmap UserId $ lastInsertRowId conn

  , readBids :: AuctionId -> ReaderT a m [(UTCTime, Bid)]

  , readBids :: AuctionId -> ReaderT a m [Bid]

{-# LANGUAGE TemplateHaskell #-}

import Control.Lens

newtype UserId = UserId Int deriving (Show, Eq)

newtype UserId = UserId Int64 deriving (Show, Eq)

  { userAddress :: BtcAddr
  , userEmail :: Text

  { _userAddress :: BtcAddr
  , _userEmail :: Text

makeLenses ''User