diff --git a/github-webhook-handler-snap.cabal b/github-webhook-handler-snap.cabal
--- a/github-webhook-handler-snap.cabal
+++ b/github-webhook-handler-snap.cabal
@@ -1,5 +1,5 @@
 name:                github-webhook-handler-snap
-version:             0.0.1
+version:             0.0.2
 
 synopsis:            GitHub WebHook Handler implementation for Snap
 description:
@@ -17,18 +17,24 @@
 cabal-version:       >=1.10
 
 
+source-repository head
+  type:     git
+  location: git://github.com/wereHamster/github-webhook-handler-snap.git
+
+
 library
   hs-source-dirs:      src
   default-language:    Haskell2010
   ghc-options:         -Wall
 
   build-depends:
-     base >=4.8 && <4.9
+     base >=4 && <4.9
    , bytestring
    , case-insensitive
    , snap-core
+   , uuid
    , github-types
-   , github-webhook-handler
+   , github-webhook-handler >=0.0.2 && <1
 
   exposed-modules:
      GitHub.WebHook.Handler.Snap
diff --git a/src/GitHub/WebHook/Handler/Snap.hs b/src/GitHub/WebHook/Handler/Snap.hs
--- a/src/GitHub/WebHook/Handler/Snap.hs
+++ b/src/GitHub/WebHook/Handler/Snap.hs
@@ -7,6 +7,8 @@
 import qualified Data.ByteString.Lazy as LBS
 import qualified Data.CaseInsensitive as CI
 
+import           Data.UUID
+
 import           Snap.Core
 
 import           GitHub.Types
@@ -14,7 +16,7 @@
 
 
 
-webhookHandler :: ByteString -> Maybe String -> (Either Error Event -> Snap ()) -> Snap ()
+webhookHandler :: ByteString -> Maybe String -> (Either Error (UUID, Event) -> Snap ()) -> Snap ()
 webhookHandler hookPath mbSecretKey m =
     path hookPath $ method POST $ runHandler handler
   where