github-webhook-handler 0.0.6 → 0.0.7

raw patch · 2 files changed

+4/−2 lines, 2 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- GitHub.WebHook.Handler: runHandler :: Monad m => Handler m -> m (Either Error (UUID, Payload))

+ GitHub.WebHook.Handler: runHandler :: (Applicative m, Monad m) => Handler m -> m (Either Error (UUID, Payload))

github-webhook-handler.cabal view

@@ -1,5 +1,5 @@ name:                github-webhook-handler-version:             0.0.6+version:             0.0.7  synopsis:            GitHub WebHook Handler description:

src/GitHub/WebHook/Handler.hs view

@@ -9,6 +9,8 @@  import           Crypto.Hash +import           Control.Applicative+ import           Data.Aeson (eitherDecodeStrict') import           Data.Aeson.Types (parseEither) @@ -74,7 +76,7 @@     (hmacGetDigest (hmac (BC8.pack key) rawBody :: HMAC SHA1)))  -runHandler :: Monad m => Handler m -> m (Either Error (UUID, Payload))+runHandler :: (Applicative m, Monad m) => Handler m -> m (Either Error (UUID, Payload)) runHandler h = do     mbDelivery <- pure . (fromASCIIBytes =<<) =<< hHeader h "X-GitHub-Delivery"