# This file was auto-generated by cabal2nix. Please do NOT edit manually!
{ haskellPackages ? (import <nixpkgs> {}).haskellPackages }:
#{ cabal, aeson, bifunctors, classyPrelude
#, configurator, either, errors, groups, hourglass, hspec, lens
#, MonadCatchIOTransformers, mtl, networkBitcoin
#, optparseApplicative, safe, snapCore, snapServer, sqliteSimple
#, text, time, transformers
#}:
with haskellPackages; cabal.mkDerivation (self: {
  pname = "quixotic";
  version = "0.1";
  src = "./.";
  isLibrary = true;
  isExecutable = true;
  #buildTools = [ cabalInstall ];
  buildDepends = [
    aeson bifunctors classyPrelude configurator either
    errors groups hourglass lens MonadCatchIOTransformers mtl
    networkBitcoin optparseApplicative safe snapCore snapServer
    sqliteSimple text time transformers
  ];
  testDepends = [ aeson hspec text time ];
  meta = {
    description = "The Quixotic Collaboration Platform";
    license = self.stdenv.lib.licenses.unfree;
    platforms = self.ghc.meta.platforms;
  };
})

  { quixoticHost :: String
  , quixoticPort :: Int

  { quixoticUrl :: String

  QCConfig <$> C.require cfg "quixoticHost" 
           <*> C.require cfg "quixoticPort"

  QCConfig <$> C.require cfg "quixoticUrl" 

  resp <- get (quixoticHost cfg <> "/payouts")

  resp <- get (quixoticUrl cfg <> "payouts")

import qualified Data.Configurator.Types as CT

import qualified Snap.Http.Server.Config as SC

  cfg <- parseConfig "quixotic.cfg"

  cfg <- loadQConfig "quixotic.cfg"

  quickHttpServe $ runReaderT (site sqliteQDB) db

  sconf <- snapConfig cfg
  simpleHttpServe sconf $ runReaderT (site sqliteQDB) db

  { port :: Int

  { hostname :: ByteString
  , port :: Int
  , sslCert :: FilePath
  , sslKey :: FilePath

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

loadQConfig :: FilePath -> IO QConfig
loadQConfig cfgFile = do 

  QConfig <$> C.require cfg "port" <*> C.require cfg "db" 

  parseQConfig cfg
parseQConfig :: CT.Config -> IO QConfig
parseQConfig cfg = 
  QConfig <$> C.lookupDefault "localhost" cfg "hostname"
          <*> C.lookupDefault 8443 cfg "port" 
          <*> (fmap fpFromText $ C.require cfg "sslCert")
          <*> (fmap fpFromText $ C.require cfg "sslKey")
          <*> C.require cfg "db" 
baseSnapConfig :: MonadSnap m => QConfig -> SC.Config m a -> SC.Config m a
baseSnapConfig cfg = 
  SC.setHostname (hostname cfg) . 
  SC.setSSLPort (port cfg) .
  SC.setSSLCert (fpToString $ sslCert cfg) .
  SC.setSSLKey (fpToString $ sslKey cfg)
snapConfig :: QConfig -> IO (SC.Config Snap ())
snapConfig cfg = SC.commandLineConfig $ baseSnapConfig cfg emptyConfig