Skip to content
Snippets Groups Projects
Commit 4bc62a23 authored by Ryan Scott's avatar Ryan Scott
Browse files

Update inspection-testing-0.4.2.2 patch

parent b74271f4
No related branches found
No related tags found
No related merge requests found
diff --git a/src/Test/Inspection/Core.hs b/src/Test/Inspection/Core.hs
index f34f301..fa17959 100644
index f34f301..eb7e648 100644
--- a/src/Test/Inspection/Core.hs
+++ b/src/Test/Inspection/Core.hs
@@ -12,20 +12,31 @@ module Test.Inspection.Core
@@ -12,20 +12,35 @@ module Test.Inspection.Core
, doesNotContainTypeClasses
) where
......@@ -15,20 +15,26 @@ index f34f301..fa17959 100644
+import GHC.Core.TyCon (TyCon, isClassTyCon)
+import GHC.Core.Type
+import GHC.Core.Utils
+import GHC.Types.Id
+import GHC.Types.Name
+import GHC.Types.Var as Var
+import GHC.Types.Var.Env
+#else
+import Coercion
import CoreSyn
import CoreUtils
+import DataCon
+import Id
+import Name
+import PprCore
import TyCoRep
+import TyCon (TyCon, isClassTyCon)
import Type
+#endif
import Var
import Id
import Name
-import Id
-import Name
import VarEnv
+#endif
import Outputable
-import PprCore
-import Coercion
......@@ -38,7 +44,7 @@ index f34f301..fa17959 100644
import qualified Data.Set as S
import Control.Monad.State.Strict
@@ -231,7 +242,11 @@ allTyCons predicate slice = listToMaybe [ (v,e) | (v,e) <- slice, not (go e) ]
@@ -231,7 +246,11 @@ allTyCons predicate slice = listToMaybe [ (v,e) | (v,e) <- slice, not (go e) ]
-- ↑ This is the crucial bit
goT (ForAllTy _ t) = goT t
#if MIN_VERSION_GLASGOW_HASKELL(8,2,0,0)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment