import qualified Data.Configurator as C
import qualified Data.Configurator.Types as CT

  }

  } deriving Show
parseQCConfig :: CT.Config -> IO QCConfig
parseQCConfig cfg = 
  QCConfig <$> C.require cfg "quixoticHost" 
           <*> C.require cfg "quixoticPort"

{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Quixotic.Client where
import ClassyPrelude
import Data.Aeson
import Quixotic
import Quixotic.Json

import qualified Data.Configurator.Types as CT

  cfg <- parseConfig "quixotic-payouts.cfg"

  cfg <- loadConfig "quixotic-payouts.cfg"

  , bitcoindUrl :: Text
  , bitcoindUser :: Text
  , bitcoindPassword :: Text

  , bitcoindUrl :: String
  , bitcoindUser :: ByteString
  , bitcoindPassword :: ByteString

  , qcConfig :: QCConfig

parseConfig :: FilePath -> IO QPConfig
parseConfig cfgFile = do 

loadConfig :: FilePath -> IO QPConfig
loadConfig cfgFile = do 

  parseQPConfig cfg
parseQPConfig :: CT.Config -> IO QPConfig
parseQPConfig cfg =  

           <*> parseQCConfig (C.subconfig "qcConfig" cfg)

auth :: QPConfig -> Auth
auth = Auth <$> bitcoindUrl <*> bitcoindUser <*> bitcoindPassword 

btcClient :: QPConfig -> IO Client
btcClient = getClient <$> bitcoindUrl <*> bitcoindUser <*> bitcoindPassword 

  putStrLn $ "Searching for unspent payouts " <> tshow cfg
  unspent <- listUnspent (auth cfg) (Just . payoutMinConfirmations $ cfg) Nothing V.empty 
  putStrLn $ tshow unspent

  client <- btcClient cfg
  unspent <- listUnspent client (Just . payoutMinConfirmations $ cfg) Nothing V.empty 

  payouts <- currentPayouts (qcConfig cfg)

  putStrLn (tshow unspent)
  putStrLn (tshow payouts)

    , configurator              

    , network-bitcoin

    , network-bitcoin      >= 1.7.0