{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}

-- |
-- Module      : Discussions
-- Description : Queries about discussions, which are a set of related notes on snippets, issues, epics, merge requests and commits.
-- Copyright   : (c) Rob Stewart, Heriot-Watt University, 2021
-- License     : BSD3
-- Maintainer  : robstewart57@gmail.com
-- Stability   : stable
module GitLab.API.Discussions where

import Data.Text (Text)
import qualified Data.Text as T
import GitLab.Types
import GitLab.WebRequests.GitLabWebCalls
import Network.HTTP.Types.Status

-- | gets all discussion for a commit for a project.
commitDiscussions ::
  -- | the project
  Project ->
  -- | commit hash
  Text ->
  GitLab (Either Status [Discussion])
commitDiscussions :: Project -> Text -> GitLab (Either Status [Discussion])
commitDiscussions Project
proj = Int -> Text -> GitLab (Either Status [Discussion])
commitDiscussions' (Project -> Int
project_id Project
proj)

-- | gets all discussion for a commit for a project given its project ID.
commitDiscussions' ::
  -- | the project ID
  Int ->
  -- | commit hash
  Text ->
  GitLab (Either Status [Discussion])
commitDiscussions' :: Int -> Text -> GitLab (Either Status [Discussion])
commitDiscussions' Int
projId Text
commitHash = do
  let urlPath :: Text
urlPath =
        String -> Text
T.pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$
          String
"/projects/"
            String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show Int
projId
            String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
"/repository"
            String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
"/commits/"
            String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Text -> String
T.unpack Text
commitHash
            String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
"/discussions"
  Text -> GitLab (Either Status [Discussion])
forall a. FromJSON a => Text -> GitLab (Either Status [a])
gitlab Text
urlPath