From 69b356ecaac9c040fd83b046e5ceb8ef90c1710e Mon Sep 17 00:00:00 2001
From: Sascha Grunert <mail@saschagrunert.de>
Date: Sat, 22 Jun 2019 16:35:03 +0200
Subject: [PATCH] Add pull request event

Signed-off-by: Sascha Grunert <mail@saschagrunert.de>
---
 .gitignore            |  1 +
 src/Handler/GitHub.hs | 10 +++++++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/.gitignore b/.gitignore
index 8ee3912..a44de16 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,4 @@
+*.lock
 *.orig
 *.sqlite3*
 *.tar
diff --git a/src/Handler/GitHub.hs b/src/Handler/GitHub.hs
index 4916349..b08feff 100644
--- a/src/Handler/GitHub.hs
+++ b/src/Handler/GitHub.hs
@@ -5,7 +5,15 @@
 -- @since 0.1.0
 module Handler.GitHub ( postGitHubR ) where
 
+import           Data.Aeson.Types            as T ( Result(Success) )
+
+import           GitHub.Data.Webhooks.Events ( PullRequestEvent )
+
 import           Import
 
 postGitHubR :: Handler ()
-postGitHubR = sendResponseStatus status200 ()
+postGitHubR = do
+    body <- parseCheckJsonBody :: Handler (T.Result PullRequestEvent)
+    case body of
+        Success _ -> sendResponseStatus status200 ()
+        _ -> sendResponseStatus status400 ()