git.iko.soy/typeable/haskell-stack-trace-plugin
on master help sign in
clean
ad2cc9fAleksey Uymanov
src/StackTrace/Plugin.hs+2−3
compare with master
unifiedsplit
@@ -52,10 +52,9 @@ ghcStackImport :: Located (ImportDecl (GhcPass p))
52ghcStackImport =
52ghcStackImport =
53 L srcSpan $
53 L srcSpan $
54 (simpleImportDecl $ mkModuleName "GHC.Stack")
54 (simpleImportDecl $ mkModuleName "GHC.Stack")
55− { ideclQualified = importDeclQualified
56− , ideclAs = Just $ noLoc ghcStackModuleName }
55+ { ideclQualified = importDeclQualified, ideclAs = Just $ noLoc ghcStackModuleName }
57 where
56 where
58− srcSpan = RealSrcSpan (realSrcLocSpan $ mkRealSrcLoc "ThisFile" 1 1) Nothing
57+ srcSpan = RealSrcSpan (realSrcLocSpan $ mkRealSrcLoc "haskell-stack-trace-plugin:very-unique-file-name-to-avoid-collision" 1 1) Nothing
59
58
60#if __GLASGOW_HASKELL__ >= 900
59#if __GLASGOW_HASKELL__ >= 900
61updateHsModule :: HsModule -> HsModule
60updateHsModule :: HsModule -> HsModule