{-# LANGUAGE ScopedTypeVariables, OverloadedStrings, NoImplicitPrelude #-}
module Quixotic.Client where
import ClassyPrelude 
import Control.Lens
import Network.Wreq
import Quixotic.Json
import Quixotic.TimeLog
data QCConfig = QCConfig
  { quixoticHost :: String
  , quixoticPort :: Int
  }
currentPayouts :: QCConfig -> IO Payouts
currentPayouts cfg = do
  resp <- get (quixoticHost cfg <> "/payouts")
  payoutsResponse <- asJSON resp
  pure . runPayoutsResponse $ payoutsResponse ^. responseBody

newtype PayoutsResponse = PayoutsResponse Payouts

newtype PayoutsResponse = PayoutsResponse { runPayoutsResponse :: Payouts }

  toJSON (PayoutsResponse p) = toJSON m where
    m :: Map Text Double
    m = fmap fromRational $ mapKeys (^. address) p

  toJSON (PayoutsResponse p) = 
    toJSON $ mapKeys (^. address) p

instance FromJSON PayoutsResponse where
  parseJSON v = 
    fmap (PayoutsResponse . mapKeys BtcAddr) $ parseJSON v

import Quixotic.Client

Description:   A service to enable groups of trusted contributors to be paid for their efforts 
               in collaboratively developing commercial applications.

Description:   A time logging and payment distribution service to enable groups of trusted contributors 
               to collaboratively develop commercial applications.

                      Quixotic.Client

    , network-bitcoin
    , wreq