github-webhook-handler-snap 0.0.1 → 0.0.2

raw patch · 2 files changed

+12/−4 lines, 2 filesdep +uuiddep ~basedep ~github-webhook-handler

Dependencies added: uuid

Dependency ranges changed: base, github-webhook-handler

Files

• github-webhook-handler-snap.cabal +9/−3
• src/GitHub/WebHook/Handler/Snap.hs +3/−1

@@ -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

@@ -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