@@ -5,7 +5,12 @@ module StackTrace.Plugin (plugin) where
6import Control.Arrow (first)
6import Control.Arrow (first)
7import Data.Monoid (Any(Any, getAny))
7import Data.Monoid (Any(Any, getAny))
8+#if __GLASGOW_HASKELL__ >= 900
8import GhcPlugins
12import GhcPlugins
9#if __GLASGOW_HASKELL__ >= 810
14#if __GLASGOW_HASKELL__ >= 810
10import GHC.Hs
15import GHC.Hs
@@ -48,7 +53,11 @@ ghcStackImport =
48 (simpleImportDecl $ mkModuleName "GHC.Stack")
53 (simpleImportDecl $ mkModuleName "GHC.Stack")
49 {ideclQualified = importDeclQualified, ideclAs = Just $ noLoc ghcStackModuleName}
54 {ideclQualified = importDeclQualified, ideclAs = Just $ noLoc ghcStackModuleName}
56+#if __GLASGOW_HASKELL__ >= 900
57+updateHsModule :: HsModule -> HsModule
51updateHsModule :: HsModule GhcPs -> HsModule GhcPs
59updateHsModule :: HsModule GhcPs -> HsModule GhcPs
52updateHsModule hsm =
61updateHsModule hsm =
53 hsm {hsmodImports = hsmodImports', hsmodDecls = hsmodDecls'}
62 hsm {hsmodImports = hsmodImports', hsmodDecls = hsmodDecls'}