{-# LANGUAGE ScopedTypeVariables, OverloadedStrings, NoImplicitPrelude, TemplateHaskell #-}

{-# LANGUAGE TemplateHaskell #-}

module Quixotic.Auction where

module Quixotic.Auctions where

import Quixotic.Auction

import Quixotic.Auctions

import Quixotic.Auction

import Quixotic.Auctions

import Quixotic.Auction
import Quixotic.Users

import Quixotic.Auctions
import Quixotic.Projects

import Quixotic.Users

  { recordEvent :: UserId -> LogEntry -> m ()
  , readWorkIndex :: m WorkIndex
  , newAuction :: Auction -> m AuctionId
  , readAuction :: AuctionId -> m (Maybe Auction)
  , recordBid :: AuctionId -> Bid -> m ()
  , readBids :: AuctionId -> m [Bid]
  , createUser :: User -> m UserId
  , findUser :: UserId -> m (Maybe User)

  { recordEvent   :: ProjectId -> UserId -> LogEntry -> m ()
  , readWorkIndex :: ProjectId -> m WorkIndex
  , newAuction    :: ProjectId -> Auction -> m AuctionId
  , readAuction   :: ProjectId -> AuctionId -> m (Maybe Auction)
  , recordBid     :: ProjectId -> AuctionId -> Bid -> m ()
  , readBids      :: ProjectId -> AuctionId -> m [Bid]
  , createUser    :: User -> m UserId
  , findUser      :: UserId -> m (Maybe User)

{-# LANGUAGE TemplateHaskell #-}
module Quixotic.Projects where
import ClassyPrelude
import Control.Lens
import Network.Bitcoin
import Quixotic
import Quixotic.Users
newtype ProjectId = ProjectId Int64 deriving (Show, Eq)
makePrisms ''ProjectId
data Project = Project
  { _projectName :: Text
  , _inceptionDate :: UTCTime
  , _initiator :: UserId
  }
makeLenses ''Project
data Invitation = Invitation
  { _projectId :: ProjectId
  , _currentMember :: UserId
  , _sentAt :: UTCTime
  , _toAddr   :: BtcAddr
  , _amount :: BTC
  }
makeLenses ''Invitation
data Acceptance = Acceptance
  { _acceptedInvitation :: Int64
  , _blockHeight :: Integer
  , _observedAt :: UTCTime
  }
makeLenses ''Acceptance
data Cancellation = Cancellation
  { _cancelledInvitation :: Int64
  , _requestedAt :: UTCTime
  }
makeLenses ''Cancellation

                      Quixotic.Auction

                      Quixotic.Auctions
                      Quixotic.Projects

  (AuthHeader uname pwd) <- either (throwDenied . AU.AuthError) pure $ parseOnly authHeaderParser rawHeader 

  let parsedHeader = parseOnly authHeaderParser rawHeader 
  (AuthHeader uname pwd) <- either (throwDenied . AU.AuthError) pure parsedHeader