{-# LANGUAGE OverloadedStrings #-}
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 GitLab.Types
import GitLab.WebRequests.GitLabWebCalls
import Network.HTTP.Client
mergeRequest ::
Project ->
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)
mergeRequest' ::
Int ->
Int ->
GitLab (Either (Response BSL.ByteString) (Maybe MergeRequest))
mergeRequest' :: Int
-> Int
-> GitLab (Either (Response ByteString) (Maybe MergeRequest))
mergeRequest' Int
projectId Int
mergeRequestIID =
Text -> GitLab (Either (Response ByteString) (Maybe MergeRequest))
forall a.
FromJSON a =>
Text -> GitLab (Either (Response ByteString) (Maybe a))
gitlabOne 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)
mergeRequests ::
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)
mergeRequests' ::
Int ->
GitLab (Either (Response BSL.ByteString) [MergeRequest])
mergeRequests' :: Int -> GitLab (Either (Response ByteString) [MergeRequest])
mergeRequests' Int
projectId =
Text
-> Text -> GitLab (Either (Response ByteString) [MergeRequest])
forall a.
FromJSON a =>
Text -> Text -> GitLab (Either (Response ByteString) [a])
gitlabWithAttrs Text
addr Text
"&scope=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"
createMergeRequest ::
Project ->
Text ->
Text ->
Int ->
Text ->
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)
createMergeRequest' ::
Int ->
Text ->
Text ->
Int ->
Text ->
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
-> Text
-> GitLab (Either (Response ByteString) (Maybe MergeRequest))
forall b.
FromJSON b =>
Text -> Text -> GitLab (Either (Response ByteString) (Maybe b))
gitlabPost Text
addr Text
dataBody
where
dataBody :: Text
dataBody :: Text
dataBody =
Text
"source_branch=" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> Text
sourceBranch Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> Text
"&target_branch=" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> Text
targetBranch
Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> Text
"&target_project_id="
Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> String -> Text
T.pack (Int -> String
forall a. Show a => a -> String
show Int
targetProjectId)
Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> Text
"&title="
Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> Text
mrTitle
Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> Text
"&description="
Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> 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"
acceptMergeRequest ::
Project ->
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)
acceptMergeRequest' ::
Int ->
Int ->
GitLab (Either (Response BSL.ByteString) (Maybe MergeRequest))
acceptMergeRequest' :: Int
-> Int
-> GitLab (Either (Response ByteString) (Maybe MergeRequest))
acceptMergeRequest' Int
projectId Int
mergeRequestIid = Text
-> Text
-> GitLab (Either (Response ByteString) (Maybe MergeRequest))
forall b.
FromJSON b =>
Text -> Text -> GitLab (Either (Response ByteString) (Maybe b))
gitlabPost Text
addr Text
dataBody
where
dataBody :: Text
dataBody :: Text
dataBody =
String -> Text
T.pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$
String
"id=" 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_request_iid=" String -> String -> String
forall a. Semigroup a => a -> a -> a
<> 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"
deleteMergeRequest ::
Project ->
Int ->
GitLab (Either (Response BSL.ByteString) ())
deleteMergeRequest :: Project -> Int -> GitLab (Either (Response ByteString) ())
deleteMergeRequest Project
project =
Int -> Int -> GitLab (Either (Response ByteString) ())
deleteMergeRequest' (Project -> Int
project_id Project
project)
deleteMergeRequest' ::
Int ->
Int ->
GitLab (Either (Response BSL.ByteString) ())
deleteMergeRequest' :: Int -> Int -> GitLab (Either (Response ByteString) ())
deleteMergeRequest' Int
projectId Int
mergeRequestIid = Text -> GitLab (Either (Response ByteString) ())
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