git.iko.soy/typeable/haskell-stack-trace-plugin
on master help sign in
nope
098cf58Aleksey Uymanov
src/StackTrace/Plugin.hs+4−1
compare with master
unifiedsplit
@@ -5,6 +5,7 @@ module StackTrace.Plugin (plugin) where
5
5
6import Control.Arrow (first)
6import Control.Arrow (first)
7import Data.Monoid (Any(Any, getAny))
7import Data.Monoid (Any(Any, getAny))
8+import GHC.Types.SrcLoc
8#if __GLASGOW_HASKELL__ >= 900
9#if __GLASGOW_HASKELL__ >= 900
9import GHC.Plugins
10import GHC.Plugins
10#else
11#else
@@ -49,10 +50,12 @@ importDeclQualified = QualifiedPre
49
50
50ghcStackImport :: Located (ImportDecl (GhcPass p))
51ghcStackImport :: Located (ImportDecl (GhcPass p))
51ghcStackImport =
52ghcStackImport =
52− mkGeneralLocated "haskell-stack-trace-plugin:GHC.Stack" $
53+ L srcSpan $
53 (simpleImportDecl $ mkModuleName "GHC.Stack")
54 (simpleImportDecl $ mkModuleName "GHC.Stack")
54 { ideclQualified = importDeclQualified
55 { ideclQualified = importDeclQualified
55 , ideclAs = Just $ noLoc ghcStackModuleName }
56 , ideclAs = Just $ noLoc ghcStackModuleName }
57+ where
58+ srcSpan = RealSrcSpan (realSrcLocSpan $ mkRealSrcLoc "ThisFile" 1 1) Nothing
56
59
57#if __GLASGOW_HASKELL__ >= 900
60#if __GLASGOW_HASKELL__ >= 900
58updateHsModule :: HsModule -> HsModule
61updateHsModule :: HsModule -> HsModule