bugsnag-haskell 0.0.4.0 → 0.0.4.1
raw patch · 3 files changed
+12/−4 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- CHANGELOG.md +5/−1
- bugsnag-haskell.cabal +2/−2
- src/Network/Bugsnag/Request.hs +5/−1
CHANGELOG.md view
@@ -1,6 +1,10 @@-## [_Unreleased_](https://github.com/pbrisbin/bugsnag-haskell/compare/v0.0.4.0...master)+## [_Unreleased_](https://github.com/pbrisbin/bugsnag-haskell/compare/v0.0.4.1...master) None.++## [v0.0.4.1](https://github.com/pbrisbin/bugsnag-haskell/compare/v0.0.4.0...v0.0.4.1)++- Fix invalid URLs in Request tab (missing leading `/`s in paths) ## [v0.0.4.0](https://github.com/pbrisbin/bugsnag-haskell/compare/v0.0.3.1...v0.0.4.0)
bugsnag-haskell.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 29c38ed61343fc8899e7a70afac5583415798394fe6c7c1a6fbbf30575f59cd9+-- hash: 8b4da20fb4f44bddadbceef8b9b755ecdae48843a34333ea8d2cb4032406f0b7 name: bugsnag-haskell-version: 0.0.4.0+version: 0.0.4.1 synopsis: Bugsnag error reporter for Haskell description: Please see README.md category: Web
src/Network/Bugsnag/Request.hs view
@@ -86,7 +86,7 @@ requestProtocol <> "://" <> requestHost request- <> rawPathInfo request+ <> prependIfNecessary "/" (rawPathInfo request) <> rawQueryString request where clientProtocol :: ByteString@@ -99,6 +99,10 @@ requestProtocol = fromMaybe clientProtocol $ lookup "X-Forwarded-Proto" $ requestHeaders request++ prependIfNecessary c x+ | c `C8.isPrefixOf` x = x+ | otherwise = c <> x sockAddrToIp :: SockAddr -> ByteString sockAddrToIp (SockAddrInet _ h) = C8.pack $ show $ fromHostAddress h