trace-embrace 1.0.3 → 1.0.4
raw patch · 4 files changed
+15/−3 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- changelog.md +3/−0
- src/Debug/TraceEmbrace/Internal/TH.hs +4/−2
- test/Debug/TraceEmbrace/Test/TraceEmbrace/TH.hs +7/−0
- trace-embrace.cabal +1/−1
changelog.md view
@@ -1,5 +1,8 @@ # trace-embrace changelog +## Version 1.0.4 2025-03-11+ * bugfix: multiple traces on the same line+ ## Version 1.0.3 2025-03-07 * bugfix: config yaml change didn't trigger rebuild * fix link to tw\'
src/Debug/TraceEmbrace/Internal/TH.hs view
@@ -209,8 +209,10 @@ [] -> [] flagVarName :: Q Name-flagVarName =- newName =<< ("_trace_if_flag_on_line_" <>) . show . fst . loc_start <$> location+flagVarName = do+ l <- location+ let (line, col) = loc_start l+ newName $ "_trace_if_flag_on_line_" <> show line <> "_on_col_" <> show col getModTraceFlagVar :: Q Name getModTraceFlagVar = do
test/Debug/TraceEmbrace/Test/TraceEmbrace/TH.hs view
@@ -14,6 +14,13 @@ where foo = $(tr "-foo trace/x") +unit_tr_twice_on_same_line :: IO ()+unit_tr_twice_on_same_line = withPrefixEnvVar thresholdConfig "" $ go one+ where+ go x = x @=? foo x+ where+ foo = $(tr "-foo trace/x") . $(tr "-foo trace/x")+ unit_tr_info :: IO () unit_tr_info = withPrefixEnvVar thresholdConfig "" $ go one where
trace-embrace.cabal view
@@ -1,6 +1,6 @@ cabal-version: 3.0 name: trace-embrace-version: 1.0.3+version: 1.0.4 license: BSD-3-Clause license-file: LICENSE category: Development