import qualified Data.Attoparsec.ByteString.Char8 as P

import qualified Data.Attoparsec.ByteString.Char8 as PC

import           Aftok.Auction                    as A

import           Aftok.Project

import           Aftok.Project                    as P

import           Aftok.Types

versionParser :: P.Parser Version
versionParser = Version <$> P.decimal <*> (P.char '.' >> P.decimal)

versionParser :: PC.Parser Version
versionParser = Version <$> PC.decimal <*> (PC.char '.' >> PC.decimal)

  v <- either (fail . show) pure $ P.parseOnly versionParser (C.pack s)

  v <- either (fail . show) pure $ PC.parseOnly versionParser (C.pack s)

  vers  <- either fail pure $ P.parseOnly versionParser (encodeUtf8 verstr)

  vers  <- either fail pure $ PC.parseOnly versionParser (encodeUtf8 verstr)

         , "initiator"      .= tshow (p ^. (initiator._UserId))

         , "initiator"      .= tshow (p ^. (P.initiator._UserId))
         ]
auctionJSON :: Auction -> Value
auctionJSON x = v1 $
  object [ "projectId"    .= tshow (x ^. (A.projectId._ProjectId))
         , "initiator"    .= tshow (x ^. (A.initiator._UserId))
         , "raiseAmount"  .= (x ^. (raiseAmount._Satoshi))

{-# LANGUAGE TemplateHaskell #-}

import           Control.Lens

makePrisms ''Satoshi

  , auctionGetHandler

--import           Data.Thyme.Format.Aeson ()

import           Aftok.Database     (createAuction)

import           Aftok.Database     (createAuction, findAuction)

import           Snap.Snaplet

import           Snap

auctionGetHandler :: Handler App App Auction
auctionGetHandler = do
  uid <- requireUserId
  aid <- requireAuctionId
  maybeAuc <- snapEval $ findAuction aid uid
  maybe (snapError 404 $ "Auction not found for id " <> tshow aid) pure maybeAuc

-- import Control.Monad.State

import           Aftok.Auction              (AuctionId(..))

-- import Snap.Snaplet.PostgresqlSimple

requireAuctionId :: MonadSnap m => m AuctionId
requireAuctionId = do
  maybeAid <- parseParam "auctionId" aidParser
  maybe (snapError 400 "Value of parameter \"auctionId\" cannot be parsed as a valid UUID")
        pure
        maybeAid
  where
    aidParser = do
      bs <- takeByteString
      pure $ AuctionId <$> fromASCIIBytes bs

      logIntervalsRoute  = serveJSON workIndexJSON   $ method GET loggedIntervalsHandler

      logIntervalsRoute  = serveJSON workIndexJSON $ method GET loggedIntervalsHandler

      auctionRoute       = serveJSON auctionJSON $ method GET auctionGetHandler

            , ("auctions/:auctionId",          auctionRoute)