listProjectContributors,

    UserName (..),

contributorParser :: RowParser (UserId, UserName, C.UTCTime)
contributorParser =
  (,,) <$> idParser UserId <*> (UserName <$> field) <*> utcParser
listProjectContributors :: ProjectId -> DBM [(UserId, UserName, C.UTCTime)]
listProjectContributors pid =
  pquery
    contributorParser
    [sql|
      SELECT DISTINCT u.id, u.handle, p.joined_at
      FROM users u
      JOIN project_companions p ON u.id = p.user_id
      WHERE p.project_id = ?
      ORDER BY p.joined_at
    |]
    (Only $ pid ^. _ProjectId)

    (ListProjectContributors pid) -> Q.listProjectContributors pid

  ListProjectContributors :: ProjectId -> DBOp [(UserId, UserName, C.UTCTime)]

listProjectContributors :: MonadDB m => ProjectId -> UserId -> m [(UserId, UserName, C.UTCTime)]
listProjectContributors pid uid =
  withProjectAuth pid uid (ListProjectContributors pid)

#!/bin/bash
if [ -f ".env" ]; then
  source .env
fi
if [ -z "${AFTOK_HOST}" ]; then 
  AFTOK_HOST="aftok.com"
fi
if [ -z "${USER}" ]; then 
  read -p "Username: " USER
  echo
fi
if [ -z "${PID}" ]; then
  read -p "Project UUID: " PID
  echo
fi
curl --verbose \
  ${ALLOW_INSECURE} \
  --user $USER \
  "https://$AFTOK_HOST/api/projects/$PID/contributors"

    listContributorsHandler,
    contributorJSON,

import Aftok.Json (idValue)

import Control.Lens

import Control.Lens ((^.))

import Data.Aeson as A

import qualified Data.Aeson as A
import Data.Aeson ((.:), (.=), Value (..), object)

import Data.Thyme.Clock as C

import qualified Data.Thyme.Clock as C

import Network.Mail.SMTP as SMTP

import qualified Network.Mail.SMTP as SMTP

instance FromJSON ProjectCreateRequest where

instance A.FromJSON ProjectCreateRequest where

contributorJSON :: (UserId, UserName, C.UTCTime) -> Value
contributorJSON (uid, uname, t) =
  object
    [ "user_id" .= idValue _UserId uid,
      "username" .= (uname ^. _UserName),
      "joined_at" .= t
    ]
listContributorsHandler :: S.Handler App App [(UserId, UserName, C.UTCTime)]
listContributorsHandler = do
  uid <- requireUserId
  pid <- requireProjectId
  snapEval $ listProjectContributors pid uid

          (sendMailWithLogin _smtpHost)
          (sendMailWithLogin' _smtpHost)

          (SMTP.sendMailWithLogin _smtpHost)
          (SMTP.sendMailWithLogin' _smtpHost)

      listContributorsRoute =
        serveJSON (fmap contributorJSON) $ method GET listContributorsHandler

      ("projects/:projectId/contributors", listContributorsRoute), -- list_project_contributors.sh