aws-xray-client-persistent 0.1.0.4 → 0.1.0.5
raw patch · 3 files changed
+32/−23 lines, 3 filesdep −resourcetdep ~aws-xray-clientdep ~basedep ~conduit
Dependencies removed: resourcet
Dependency ranges changed: aws-xray-client, base, conduit, containers, lens, persistent, random, text, time
Files
- CHANGELOG.md +5/−1
- aws-xray-client-persistent.cabal +21/−22
- library/Network/AWS/XRayClient/Persistent.hs +6/−0
CHANGELOG.md view
@@ -1,6 +1,10 @@-## [*Unreleased*](https://github.com/freckle/aws-xray-client/compare/aws-xray-client-persistent-v0.1.0.2...main)+## [*Unreleased*](https://github.com/freckle/aws-xray-client/compare/aws-xray-client-persistent-v0.1.0.3...main) None++## [v0.1.0.3](https://github.com/freckle/aws-xray-client/compare/aws-xray-client-persistent-v0.1.0.2...aws-xray-client-persistent-v0.1.0.3)++- Support GHCs 9.0 and 9.2 ## [v0.1.0.2](https://github.com/freckle/aws-xray-client/compare/aws-xray-client-persistent-v0.1.0.1...aws-xray-client-persistent-v0.1.0.2)
aws-xray-client-persistent.cabal view
@@ -1,18 +1,18 @@-cabal-version: 1.12-name: aws-xray-client-persistent-version: 0.1.0.4-license: MIT-copyright: 2021 Renaissance Learning Inc-maintainer: engineering@freckle.com-author: Freckle R&D-homepage: https://github.com/freckle/aws-xray-client#readme-bug-reports: https://github.com/freckle/aws-xray-client/issues-synopsis: A client for AWS X-Ray integration with Persistent.+cabal-version: 1.18+name: aws-xray-client-persistent+version: 0.1.0.5+license: MIT+copyright: 2021 Renaissance Learning Inc+maintainer: engineering@freckle.com+author: Freckle R&D+homepage: https://github.com/freckle/aws-xray-client#readme+bug-reports: https://github.com/freckle/aws-xray-client/issues+synopsis: A client for AWS X-Ray integration with Persistent. description: Works with `aws-xray-client` to enable X-Ray tracing with Persistent. -build-type: Simple-extra-source-files:+build-type: Simple+extra-doc-files: README.md CHANGELOG.md @@ -35,13 +35,12 @@ TypeApplications TypeFamilies build-depends:- aws-xray-client >=0.1.0.1,- base >=4.14.3.0 && <5,- conduit >=1.3.4.2,- containers >=0.6.5.1,- lens >=4.19.2,- persistent >=2.13.3.0,- random >=1.2.0,- resourcet >=1.2.4.3,- text >=1.2.4.1,- time >=1.9.3+ aws-xray-client >=0.1.0.2,+ base >=4.11.1.0 && <5,+ conduit >=1.3.1,+ containers >=0.5.11.0,+ lens >=4.16.1,+ persistent >=2.8.2,+ random >=1.1,+ text >=1.2.3.1,+ time >=1.8.0.2
library/Network/AWS/XRayClient/Persistent.hs view
@@ -49,7 +49,11 @@ newConnStmtMap <- newIORef Map.empty pure backend { connPrepare = connPrepare' (connPrepare backend)+#if MIN_VERSION_persistent(2,9,0) , connBegin = binaryTimerWrapper "BEGIN" (connBegin backend)+#else+ , connBegin = unaryTimerWrapper "BEGIN" (connBegin backend)+#endif , connCommit = unaryTimerWrapper "COMMIT" (connCommit backend) , connRollback = unaryTimerWrapper "ROLLBACK" (connRollback backend) , connStmtMap = mkCache newConnStmtMap@@ -96,11 +100,13 @@ sendQueryTrace sendTrace sql startTime stdGenIORef sql pure result +#if MIN_VERSION_persistent(2,9,0) binaryTimerWrapper sql action x y = do startTime <- getPOSIXTime result <- action x y sendQueryTrace sendTrace sql startTime stdGenIORef sql pure result+#endif sendQueryTrace :: (XRaySegment -> IO ())