Tweak responsibilities between Disabled and Handler

src/Restyled/Disabled.hs

@@ -29,7 +29,8 @@ newtype Installation = Installation
   deriving anyclass (FromJSON, ToJSON)
 
 data PullRequest = PullRequest
-  { base :: Commit
+  { number :: Int
+  , base :: Commit
   , head :: Commit
   }
   deriving stock (Generic)
@@ -50,6 +51,9 @@ data Repo = Repo
   deriving stock (Generic)
   deriving anyclass (FromJSON, ToJSON)
 
+repoFullName :: Repo -> Text
+repoFullName repo = repo.owner.login <> "/" <> repo.name
+
 newtype Owner = Owner
   { login :: Text
   }
@@ -76,10 +80,18 @@ emitDisabledStatus
   -> m (Either String GitHub.Status)
 emitDisabledStatus body = runExceptT $ do
   webhook <- hoistEither $ eitherDecode body
-  logDebug $ "Webhook" :# ["contents" .= webhook]
   guard $ shouldEmitDisabledStatus webhook
+
   settings <- lift $ view settingsL
   token <- generateToken settings webhook
+
+  logInfo
+    $ "Emitted disabled status"
+    :# [ "repository" .= repoFullName webhook.pull_request.base.repo
+       , "pullRequest" .= webhook.pull_request.number
+       , "commitSha" .= webhook.pull_request.head.sha
+       ]
+
   createStatus token webhook
 
 generateToken

src/Restyled/Handlers/Webhooks.hs

@@ -14,14 +14,13 @@ import Restyled.Yesod
 
 postWebhooksR :: Handler ()
 postWebhooksR = do
-  qs <- view queuesL
   body <- runConduit $ rawRequestBody .| sinkLbs
 
   emitDisabledStatus body >>= \case
-    Left err -> do
-      logDebug $ "Disabled status not emitted" :# ["reason" .= err]
-      runRedis $ enqueue qs $ toStrict body -- proceed normally
-    Right status -> do
-      logInfo $ "Disabled status emitted" :# ["status" .= show @Text status]
+    Left {} -> do
+      -- Not emitted, proceed normally
+      qs <- view queuesL
+      runRedis $ enqueue qs $ toStrict body
+    Right {} -> pure ()
 
   sendResponseStatus @_ @Text status201 ""