hs-opentelemetry-instrumentation-yesod 0.0.1.2 → 0.0.1.3

raw patch · 2 files changed

+10/−1 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• hs-opentelemetry-instrumentation-yesod.cabal +1/−1
• src/OpenTelemetry/Instrumentation/Yesod.hs +9/−0

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           hs-opentelemetry-instrumentation-yesod-version:        0.0.1.2+version:        0.0.1.3 synopsis:       Yesod middleware for providing OpenTelemetry instrumentation description:    Please see the README on GitHub at <https://github.com/iand675/hs-opentelemetry/tree/main/instrumentation/yesod#readme> category:       OpenTelemetry, Web

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE RecordWildCards #-}@@ -70,7 +71,11 @@     toIgnore = length $ filter isDynamic pieces     isDynamic Dynamic {} = True     isDynamic Static {} = False+#if MIN_VERSION_template_haskell(2, 18, 0)+    front' = front . ConP (mkName name) [] . ignored+#else     front' = front . ConP (mkName name) . ignored+#endif     newNames = names <> [name]  goRes :: (Pat -> Pat) -> [String] -> Resource a -> Q Clause@@ -99,7 +104,11 @@     toText s = VarE 'T.pack `AppE` LitE (StringL s)     isDynamic Dynamic {} = True     isDynamic Static {} = False+#if MIN_VERSION_template_haskell(2, 18, 0)+    parentPieceWrapper (parentName, pieces) nestedPat = ConP (mkName parentName) [] $ mconcat+#else     parentPieceWrapper (parentName, pieces) nestedPat = ConP (mkName parentName) $ mconcat+#endif       [ replicate (length $ filter isDynamic pieces) WildP       , [nestedPat]       ]