build-depends:      base                 >= 4.7.0.1

  build-depends:      base

                    , configurator         == 0.2.*

import Control.Applicative

import qualified Data.Configurator as C

port :: Int
port = 8028

  db <- openConnection "quixotic.db"

  cfg <- parseConfig "quixotic.cfg"
  db <- openConnection $ dbName cfg

  dbMain db adb

  dbMain cfg db adb

dbMain :: a -> ADB IO a -> IO ()
dbMain db adb = do
  scotty port $ do

data QConfig
  = QConfig
  { port :: Int
  , dbName :: String
  } 
parseConfig :: FilePath -> IO QConfig
parseConfig cfgFile = do 
  cfg <- C.load [C.Required cfgFile]
  QConfig <$> C.require cfg "port" <*> C.require cfg "db" 
dbMain :: QConfig -> a -> ADB IO a -> IO ()
dbMain cfg db adb = do
  scotty (port cfg) $ do

  toJSON (PayoutsResponse p) = A.toJSON (mapKeys address p)

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