import qualified Quixotic.Database as D

import Quixotic.Database

sqliteADB :: SQLiteHandle -> IO (D.ADB IO SQLiteHandle)

sqliteADB :: SQLiteHandle -> IO (ADB (EitherT Text IO) SQLiteHandle)

  return $ D.ADB recordEvent readWorkIndex 

  return $ ADB 
    { recordEvent = recordEvent'
    , readWorkIndex = readWorkIndex' 
    , newAuction = undefined
    , readAuction = undefined
    , recordBid = undefined
    , readBids = undefined
    , createUser = undefined
    }

recordEvent :: SQLiteHandle -> LogEntry -> IO ()
recordEvent h (LogEntry ba ev) = 
  void $ insertRow h "workEvents" [ ("btcAddr", unpack (address ba))
                                  , ("event", unpack (eventName ev))
                                  , ("eventTime", formatSqlTime (logTime ev)) ]

recordEvent' :: LogEntry -> ReaderT SQLiteHandle (EitherT Text IO) ()
recordEvent' (LogEntry ba ev) = do 
  db <- ask
  lift . lift . void $ insertRow db "workEvents" 
    [ ("btcAddr", unpack (address ba))
    , ("event", unpack (eventName ev))
    , ("eventTime", formatSqlTime (logTime ev)) ]

readWorkIndex :: SQLiteHandle -> EitherT Text IO WorkIndex
readWorkIndex db = do

readWorkIndex' :: ReaderT SQLiteHandle (EitherT Text IO) WorkIndex
readWorkIndex' = do
  db <- ask

  rows <- bimapEitherT pack id baseResult

  rows <- lift $ bimapEitherT pack id baseResult

module Quixotic.Database 
  ( ADB(..)
  ) where

module Quixotic.Database where

import Control.Monad.Trans.Either

import ClassyPrelude

import qualified Data.Text as T

  , readWorkIndex :: EitherT T.Text (ReaderT a m) WorkIndex

  , readWorkIndex :: ReaderT a m WorkIndex