{-# LANGUAGE OverloadedStrings #-}

-- |
-- Module      : MergeRequests
-- Description : Queries about merge requests against projects
-- Copyright   : (c) Rob Stewart, Heriot-Watt University, 2019
-- License     : BSD3
-- Maintainer  : robstewart57@gmail.com
-- Stability   : stable
module GitLab.API.MergeRequests where

import qualified Data.ByteString.Lazy as BSL
import Data.Either
import Data.Text (Text)
import qualified Data.Text as T
import qualified Data.Text.Encoding as T
import GitLab.Types
import GitLab.WebRequests.GitLabWebCalls
import Network.HTTP.Client

-- | returns the merge request for a project given its merge request
-- IID.
mergeRequest ::
  -- | project
  Project ->
  -- | merge request IID
  Int ->
  GitLab (Either (Response BSL.ByteString) (Maybe MergeRequest))
mergeRequest :: Project
-> Int
-> GitLab (Either (Response ByteString) (Maybe MergeRequest))
mergeRequest Project
project =
  Int
-> Int
-> GitLab (Either (Response ByteString) (Maybe MergeRequest))
mergeRequest' (Project -> Int
project_id Project
project)

-- | returns the merge request for a project given its project ID and
-- merge request IID.
mergeRequest' ::
  -- | project ID
  Int ->
  -- | merge request IID
  Int ->
  GitLab (Either (Response BSL.ByteString) (Maybe MergeRequest))
mergeRequest' :: Int
-> Int
-> GitLab (Either (Response ByteString) (Maybe MergeRequest))
mergeRequest' Int
projectId Int
mergeRequestIID =
  Text
-> [GitLabParam]
-> GitLab (Either (Response ByteString) (Maybe MergeRequest))
forall a.
FromJSON a =>
Text
-> [GitLabParam] -> GitLab (Either (Response ByteString) (Maybe a))
gitlabGetOne Text
addr []
  where
    addr :: Text
addr =
      Text
"/projects/"
        Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> String -> Text
T.pack (Int -> String
forall a. Show a => a -> String
show Int
projectId)
        Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> Text
"/merge_requests/"
        Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> String -> Text
T.pack (Int -> String
forall a. Show a => a -> String
show Int
mergeRequestIID)

-- | returns the merge requests for a project.
mergeRequests ::
  -- | the project
  Project ->
  GitLab [MergeRequest]
mergeRequests :: Project -> GitLab [MergeRequest]
mergeRequests Project
p = do
  Either (Response ByteString) [MergeRequest]
result <- Int -> GitLab (Either (Response ByteString) [MergeRequest])
mergeRequests' (Project -> Int
project_id Project
p)
  [MergeRequest] -> GitLab [MergeRequest]
forall (m :: * -> *) a. Monad m => a -> m a
return ([MergeRequest]
-> Either (Response ByteString) [MergeRequest] -> [MergeRequest]
forall b a. b -> Either a b -> b
fromRight (String -> [MergeRequest]
forall a. HasCallStack => String -> a
error String
"mergeRequests error") Either (Response ByteString) [MergeRequest]
result)

-- | returns the merge requests for a project given its project ID.
mergeRequests' ::
  -- | project ID
  Int ->
  GitLab (Either (Response BSL.ByteString) [MergeRequest])
mergeRequests' :: Int -> GitLab (Either (Response ByteString) [MergeRequest])
mergeRequests' Int
projectId =
  Text
-> [GitLabParam]
-> GitLab (Either (Response ByteString) [MergeRequest])
forall a.
FromJSON a =>
Text -> [GitLabParam] -> GitLab (Either (Response ByteString) [a])
gitlabGetMany Text
addr [(ByteString
"scope", ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just ByteString
"all")]
  where
    addr :: Text
addr =
      Text
"/projects/"
        Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> String -> Text
T.pack (Int -> String
forall a. Show a => a -> String
show Int
projectId)
        Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> Text
"/merge_requests"

-- | Creates a merge request.
createMergeRequest ::
  -- | project
  Project ->
  -- | source branch
  Text ->
  -- | target branch
  Text ->
  -- | target project ID
  Int ->
  -- | merge request title
  Text ->
  -- | merge request description
  Text ->
  GitLab (Either (Response BSL.ByteString) (Maybe MergeRequest))
createMergeRequest :: Project
-> Text
-> Text
-> Int
-> Text
-> Text
-> GitLab (Either (Response ByteString) (Maybe MergeRequest))
createMergeRequest Project
project =
  Int
-> Text
-> Text
-> Int
-> Text
-> Text
-> GitLab (Either (Response ByteString) (Maybe MergeRequest))
createMergeRequest' (Project -> Int
project_id Project
project)

-- | Creates a merge request.
createMergeRequest' ::
  -- | project ID
  Int ->
  -- | source branch
  Text ->
  -- | target branch
  Text ->
  -- | target project ID
  Int ->
  -- | merge request title
  Text ->
  -- | merge request description
  Text ->
  GitLab (Either (Response BSL.ByteString) (Maybe MergeRequest))
createMergeRequest' :: Int
-> Text
-> Text
-> Int
-> Text
-> Text
-> GitLab (Either (Response ByteString) (Maybe MergeRequest))
createMergeRequest' Int
projectId Text
sourceBranch Text
targetBranch Int
targetProjectId Text
mrTitle Text
mrDescription =
  Text
-> [GitLabParam]
-> GitLab (Either (Response ByteString) (Maybe MergeRequest))
forall a.
FromJSON a =>
Text
-> [GitLabParam] -> GitLab (Either (Response ByteString) (Maybe a))
gitlabPost Text
addr [GitLabParam]
params
  where
    params :: [GitLabParam]
    params :: [GitLabParam]
params =
      [ (ByteString
"source_branch", ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (Text -> ByteString
T.encodeUtf8 Text
sourceBranch)),
        (ByteString
"target_branch", ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (Text -> ByteString
T.encodeUtf8 Text
targetBranch)),
        (ByteString
"target_project_id", ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (Text -> ByteString
T.encodeUtf8 (String -> Text
T.pack (Int -> String
forall a. Show a => a -> String
show Int
targetProjectId)))),
        (ByteString
"title", ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (Text -> ByteString
T.encodeUtf8 Text
mrTitle)),
        (ByteString
"description", ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (Text -> ByteString
T.encodeUtf8 Text
mrDescription))
      ]
    addr :: Text
addr = 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
projectId String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
"/merge_requests"

-- | Accepts a merge request.
acceptMergeRequest ::
  -- | project
  Project ->
  -- | merge request IID
  Int ->
  GitLab (Either (Response BSL.ByteString) (Maybe MergeRequest))
acceptMergeRequest :: Project
-> Int
-> GitLab (Either (Response ByteString) (Maybe MergeRequest))
acceptMergeRequest Project
project =
  Int
-> Int
-> GitLab (Either (Response ByteString) (Maybe MergeRequest))
acceptMergeRequest' (Project -> Int
project_id Project
project)

-- | Accepts a merge request.
acceptMergeRequest' ::
  -- | project ID
  Int ->
  -- | merge request IID
  Int ->
  GitLab (Either (Response BSL.ByteString) (Maybe MergeRequest))
acceptMergeRequest' :: Int
-> Int
-> GitLab (Either (Response ByteString) (Maybe MergeRequest))
acceptMergeRequest' Int
projectId Int
mergeRequestIid = Text
-> [GitLabParam]
-> GitLab (Either (Response ByteString) (Maybe MergeRequest))
forall a.
FromJSON a =>
Text
-> [GitLabParam] -> GitLab (Either (Response ByteString) (Maybe a))
gitlabPost Text
addr [GitLabParam]
params
  where
    params :: [GitLabParam]
    params :: [GitLabParam]
params =
      [ (ByteString
"id", ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (Text -> ByteString
T.encodeUtf8 (String -> Text
T.pack (Int -> String
forall a. Show a => a -> String
show Int
projectId)))),
        (ByteString
"merge_request_iid", ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (Text -> ByteString
T.encodeUtf8 (String -> Text
T.pack (Int -> String
forall a. Show a => a -> String
show Int
mergeRequestIid))))
      ]
    addr :: Text
addr =
      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
projectId String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
"/merge_requests/"
          String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show Int
mergeRequestIid
          String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
"/merge"

-- | Deletes a merge request. Only for admins and project owners.
deleteMergeRequest ::
  -- | project
  Project ->
  -- | merge request IID
  Int ->
  GitLab (Either (Response BSL.ByteString) (Maybe ()))
deleteMergeRequest :: Project -> Int -> GitLab (Either (Response ByteString) (Maybe ()))
deleteMergeRequest Project
project =
  Int -> Int -> GitLab (Either (Response ByteString) (Maybe ()))
deleteMergeRequest' (Project -> Int
project_id Project
project)

-- | Deletes a merge request. Only for admins and project owners.
deleteMergeRequest' ::
  -- | project ID
  Int ->
  -- | merge request IID
  Int ->
  GitLab (Either (Response BSL.ByteString) (Maybe ()))
deleteMergeRequest' :: Int -> Int -> GitLab (Either (Response ByteString) (Maybe ()))
deleteMergeRequest' Int
projectId Int
mergeRequestIid = Text -> GitLab (Either (Response ByteString) (Maybe ()))
forall a.
FromJSON a =>
Text -> GitLab (Either (Response ByteString) (Maybe a))
gitlabDelete Text
addr
  where
    addr :: Text
addr =
      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
projectId String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
"/merge_requests/"
          String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show Int
mergeRequestIid