inspection-testing 0.5.0.1 → 0.5.0.2
raw patch · 3 files changed
+11/−9 lines, 3 filesdep ~basedep ~ghc
Dependency ranges changed: base, ghc
Files
- ChangeLog.md +4/−0
- inspection-testing.cabal +3/−3
- src/Test/Inspection/Core.hs +4/−6
ChangeLog.md view
@@ -1,5 +1,9 @@ # Revision history for inspection-testing +## 0.5.0.2 -- 2023-07-10++* Support GHC 9.8 (thanks Bodigrim)+ ## 0.5.0.1 -- 2023-01-15 * Support mtl-2.3 and GHC 9.6 (thanks Bodigrim)
inspection-testing.cabal view
@@ -1,5 +1,5 @@ name: inspection-testing-version: 0.5.0.1+version: 0.5.0.2 synopsis: GHC plugin to do inspection testing description: Some carefully crafted libraries make promises to their users beyond functionality and performance.@@ -45,8 +45,8 @@ Test.Inspection.Plugin Test.Inspection.Core hs-source-dirs: src- build-depends: base >=4.9 && <4.19- build-depends: ghc >= 8.0.2 && <9.7+ build-depends: base >=4.9 && <4.20+ build-depends: ghc >= 8.0.2 && <9.9 build-depends: template-haskell build-depends: containers build-depends: transformers
src/Test/Inspection/Core.hs view
@@ -356,13 +356,8 @@ go_alt lv env (Alt c1 bs1 e1) (Alt c2 bs2 e2) = guard (c1 == c2) >> go lv (rnBndrs2 env bs1 bs2) e1 e2 -#if MIN_VERSION_ghc(9,2,0) go_tick :: RnEnv2 -> CoreTickish -> CoreTickish -> Bool- go_tick env (Breakpoint _ lid lids) (Breakpoint _ rid rids)-#else- go_tick :: RnEnv2 -> Tickish Id -> Tickish Id -> Bool- go_tick env (Breakpoint lid lids) (Breakpoint rid rids)-#endif+ go_tick env Breakpoint{ breakpointId = lid, breakpointFVs = lids } Breakpoint{ breakpointId = rid, breakpointFVs = rids } = lid == rid && map (rnOccL env) lids == map (rnOccR env) rids go_tick _ l r = l == r @@ -385,6 +380,9 @@ -- continue with the rest of bindings, adding a pair as matching one. goBinds lv (rnBndr2 env v1 v2) xs ys +#if !MIN_VERSION_ghc(9,2,0)+type CoreTickish = Tickish Id+#endif traceBlock :: Monad m => Int -> String -> String -> (Int -> m ()) -> m () traceBlock lv name msg action = do