@@ -5,6 +5,7 @@ module StackTrace.Plugin (plugin) where
55
66import Control.Arrow (first)
77import Data.Monoid (Any(Any, getAny))
8+import GHC.Types.SrcLoc
89#if __GLASGOW_HASKELL__ >= 900
910import GHC.Plugins
1011#else
@@ -49,10 +50,12 @@ importDeclQualified = QualifiedPre
4950
5051ghcStackImport :: Located (ImportDecl (GhcPass p))
5152ghcStackImport =
52− mkGeneralLocated "haskell-stack-trace-plugin:GHC.Stack" $
53+ L srcSpan $
5354 (simpleImportDecl $ mkModuleName "GHC.Stack")
5455 { ideclQualified = importDeclQualified
5556 , ideclAs = Just $ noLoc ghcStackModuleName }
57+ where
58+ srcSpan = RealSrcSpan (realSrcLocSpan $ mkRealSrcLoc "ThisFile" 1 1) Nothing
5659
5760#if __GLASGOW_HASKELL__ >= 900
5861updateHsModule :: HsModule -> HsModule