{-# LANGUAGE DataKinds         #-}
{-# LANGUAGE OverloadedStrings #-}
module GitHub.Paths.Orgs where

import           Data.Aeson          (Value, encode)
import           Data.Text           (Text)
import           GitHub.Data.Request (CommandMethod (Patch), RW (..), Request,
                                      command)

editOrgR :: Text -> Value -> Request 'RW Value
editOrgR :: Text -> Value -> Request 'RW Value
editOrgR Text
org =
    CommandMethod -> Paths -> ByteString -> Request 'RW Value
forall a. CommandMethod -> Paths -> ByteString -> Request 'RW a
command CommandMethod
Patch [Text
"orgs", Text
org] (ByteString -> Request 'RW Value)
-> (Value -> ByteString) -> Value -> Request 'RW Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Value -> ByteString
forall a. ToJSON a => a -> ByteString
encode