on bb7772e help sign in
12 lines 278 B history raw
1module GitHub.Endpoints.Checks
2 ( checkR,
3 )
4where
6import Data.Aeson
7import GitHub
8import GitHub.Data.Checks
10checkR :: Name Owner -> Name Repo -> Check -> Request 'RW Value
11checkR user repo =
12 command Post ["repos", toPathPart user, toPathPart repo, "check-runs"] . encode