github-webhook-handler-snap 0.0.4 → 0.0.5

raw patch · 2 files changed

+7/−6 lines, 2 filesdep ~github-webhook-handlerPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: github-webhook-handler

API changes (from Hackage documentation)

Files

• github-webhook-handler-snap.cabal +2/−2
• src/GitHub/WebHook/Handler/Snap.hs +5/−4

@@ -1,5 +1,5 @@ name:                github-webhook-handler-snap-version:             0.0.4+version:             0.0.5  synopsis:            GitHub WebHook Handler implementation for Snap description:@@ -34,7 +34,7 @@    , snap-core    , uuid    , github-types >=0.2 && <1-   , github-webhook-handler >=0.0.4 && <1+   , github-webhook-handler >=0.0.5 && <1    exposed-modules:      GitHub.WebHook.Handler.Snap

@@ -1,5 +1,6 @@ module GitHub.WebHook.Handler.Snap-  ( webhookHandler+  ( module GitHub.WebHook.Handler+  , webhookHandler   ) where  @@ -20,12 +21,12 @@   -webhookHandler :: ByteString -> Maybe String -> (Either Error (UUID, Payload) -> Snap ()) -> Snap ()-webhookHandler hookPath mbSecretKey m =+webhookHandler :: ByteString -> [String] -> (Either Error (UUID, Payload) -> Snap ()) -> Snap ()+webhookHandler hookPath secretKeys m =     path hookPath $ method POST $ runHandler handler   where     handler = Handler-        { hSecretKey = mbSecretKey+        { hSecretKeys = secretKeys         , hBody = fmap LBS.toStrict $ readRequestBody (100 * 1000)         , hHeader = \name -> do             hdrs <- headers <$> getRequest