{-# LANGUAGE OverloadedStrings #-}
module GitLab.API.Version where
import qualified Data.ByteString.Lazy as BSL
import GitLab.Types
import GitLab.WebRequests.GitLabWebCalls
import Network.HTTP.Client
gitlabVersion :: GitLab (Either (Response BSL.ByteString) (Maybe Version))
gitlabVersion :: GitLab (Either (Response ByteString) (Maybe Version))
gitlabVersion = do
let urlPath :: Text
urlPath = Text
"/version"
Text -> GitLab (Either (Response ByteString) (Maybe Version))
forall a.
FromJSON a =>
Text -> GitLab (Either (Response ByteString) (Maybe a))
gitlabOne Text
urlPath