git.iko.soy/sc-build
on master help sign in
sc-build/src/Control/HasGithubStatus.hs
14 lines 574 B history raw
1module Control.HasGithubStatus
2 ( HasGithubStatus (..),
3 )
4where
6import Colog
7import Data.Submission
8import GitHub.Data
10class HasGithubStatus m where
11 schedulePendingStatus :: WithLog env Message m => Name Owner -> Name Repo -> Name Commit -> m ()
12 scheduleTestedStatus :: WithLog env Message m => TestResult -> Name Owner -> Name Repo -> Name Commit -> m ()
13 scheduleFailedStatus :: WithLog env Message m => String -> Name Owner -> Name Repo -> Name Commit -> m ()
14 deadlineHasPassedStatus :: WithLog env Message m => Name Owner -> Name Repo -> Name Commit -> m ()