Skip to content

Commit

Permalink
Revert unnecessary changes
Browse files Browse the repository at this point in the history
  • Loading branch information
maxhallinan committed Oct 26, 2023
1 parent 8087e7a commit 10da76a
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/Web/Slack/Experimental/Blocks/Types.hs
Original file line number Diff line number Diff line change
Expand Up @@ -712,15 +712,15 @@ instance FromJSON SlackInteractivePayload where
-- | Which component and it's IDs that triggered an interactive webhook call.
data SlackActionResponse = SlackActionResponse
{ sarBlockId :: SlackBlockId
, sarActionId :: Maybe SlackActionId
, sarActionId :: SlackActionId
, sarActionComponent :: SlackActionComponent
}
deriving stock (Show)

instance FromJSON SlackActionResponse where
parseJSON = withObject "SlackActionResponse" $ \obj -> do
sarBlockId <- obj .: "block_id"
sarActionId <- obj .:? "action_id"
sarActionId <- obj .: "action_id"
sarActionComponent <- parseJSON $ Object obj
pure $ SlackActionResponse {..}

Expand Down

0 comments on commit 10da76a

Please sign in to comment.