git.iko.soy/typeable/haskell-stack-trace-plugin
on 70854be help sign in
6624a59
swap
0 ahead, 42 behind
11 files changed+72−321
since splitsnapshots
unifiedsplit
.github/workflows/cabal.yml−44 .gitignore+1−2 CHANGELOG.md+1−23 LICENSE+1−1 Readme.md+23−32 example/Main.hs+3−9 haskell-stack-trace-plugin.cabal+29−64 src/StackTrace/Plugin.hs+14−109 test/Spec.hs−1 test/StackTrace/PluginSpec.hs−21 test/resource/ghc.output−15
.github/workflows/cabal.ymldeleted−44
@@ -1,44 +0,0 @@
1−name: cabal
2−
3−on:
4− push:
5− branches: [ master ]
6− pull_request:
7− branches: [ '*' ]
8− schedule:
9− - cron: "00 15 * * *"
10−
11−jobs:
12− build:
13− runs-on: ubuntu-18.04
14− strategy:
15− matrix:
16− ghc: ["8.6", "8.8", "8.10", "9.0"]
17− cabal: ["3.2"]
18− cache-version: ["2021-05-21"]
19−
20− steps:
21− - uses: actions/checkout@v2
22− - uses: haskell/actions/setup@v1
23− with:
24− ghc-version: ${{ matrix.ghc }}
25− cabal-version: ${{ matrix.cabal }}
26−
27− - name: Cache ~/.cabal/store
28− uses: actions/cache@v2
29− with:
30− path: |
31− ~/.cabal/store
32− dist-newstyle
33− key: ${{ runner.os }}-${{ matrix.ghc }}-${{ matrix.cache-version }}-cabal
34−
35− - name: Install dependencies
36− run: |
37− cabal update
38− cabal configure --disable-optimization --enable-tests --write-ghc-environment-files=always -j2
39− cabal build --only-dependencies
40−
41− - name: Build & Test
42− run: |
43− cabal build --flag dev
44− cabal test --flag dev
.gitignore+1−2
@@ -3,5 +3,4 @@ dist-*/
33.ghc.environment.*
44cabal.project.local
55
6−*~
7−tasks.json
6+*~
CHANGELOG.md+1−23
@@ -1,27 +1,5 @@
11# Revision history for haskell-stack-trace-pugin
22
3−## Unreleased changes
4−
5−## 0.1.3.0
6−
7−- Added support `where` clause [#11](https://github.com/waddlaw/haskell-stack-trace-plugin/pull/11) (@waddlaw)
8−- Avoid redundant-constraints warnings [#12](https://github.com/waddlaw/haskell-stack-trace-plugin/pull/12) (@waddlaw)
9−
10−## 0.1.2.0 -- 2021-05-21
11−
12−- Added support for GHC 8.10 [#7](https://github.com/waddlaw/haskell-stack-trace-plugin/pull/7) (@etorreborre)
13−- Added support for GHC 9.0 @waddlaw
14−
15−## 0.1.1.1 -- 2020-01-18
16−
17−- Allow GHC-8.8.1
18−
19−## 0.1.1.0 -- 2020-01-18
20−
21−- Ergonomic improvements [#1](https://github.com/waddlaw/haskell-stack-trace-plugin/pull/1) (@khwarizmii)
22−- Add Integration test
23−- Add GitHub Action
24−
253## 0.1.0.0 -- 2018-12-07
264
27−- First version. Released on an unsuspecting world.
5+* First version. Released on an unsuspecting world.
LICENSE+1−1
@@ -1,4 +1,4 @@
1−Copyright (c) 2018-2021 Shinya Yamaguchi
1+Copyright (c) 2018 Shinya Yamaguchi
22
33Permission is hereby granted, free of charge, to any person obtaining
44a copy of this software and associated documentation files (the
Readme.md+23−32
@@ -1,14 +1,11 @@
11# haskell-stack-trace-plugin
22
3−![](https://github.com/waddlaw/haskell-stack-trace-plugin/workflows/cabal/badge.svg)
43[![Hackage](https://img.shields.io/hackage/v/haskell-stack-trace-plugin.svg)](https://hackage.haskell.org/package/haskell-stack-trace-plugin)
54
65This plugin allow implicitly add `HasCallStack` class to every top-level function for all module. Hence, we can to get completely continuous call stack.
76
8−1. (implicitly) Import [GHC.Stack](https://hackage.haskell.org/package/base/docs/GHC-Stack.html) for all modules.
9−2. Add [HasCallStack](https://hackage.haskell.org/package/base/docs/GHC-Stack.html#t:HasCallStack) constraint for all top-level functions.
10−3. Other supported syntaxes
11− - [x] `where` clause
7+1. (implicitly) Import [GHC.Stack](https://www.stackage.org/haddock/lts-12.21/base-4.11.1.0/GHC-Stack.html) for all modules.
8+2. Add [HasCallStack](https://www.stackage.org/haddock/lts-12.21/base-4.11.1.0/GHC-Stack.html#t:HasCallStack) constraint for all top-level functions.
129
1310Requirement: (8.6 <= on GHC)
1411
@@ -34,10 +31,10 @@ f3 = f4 0
3431
3532-- HsQualTy
3633f4 :: Show a => a -> Int
37−f4 n = f5 (show n) 0
34+f4 _ = f5 0 0
3835
3936-- HsFunTy
40−f5 :: String -> Int -> Int
37+f5 :: Int -> Int -> Int
4138f5 _ _ = head f6
4239
4340-- HsListTy
@@ -50,13 +47,7 @@ f7 = (fromJust f8, fromJust f8)
5047
5148-- HsAppTy
5249f8 :: Maybe Int
53−f8 = Just f9
54−
55−f9 :: Int
56−f9 = f10
57− where
58− f10 :: Int
59− f10 = fError
50+f8 = Just fError
6051
6152-- HsTyVar
6253fError :: Int
@@ -66,7 +57,7 @@ fError = error "fError"
6657This example get error:
6758
6859```shell
69−$ cabal build
60+$ cabal new-build
7061example/Main.hs:15:7: error:
7162 Not in scope: type constructor or class ‘HasCallStack’
7263 |
@@ -79,10 +70,10 @@ Yes, add `import GHC.Stack` to above example.
7970Fix and rebuild!
8071
8172```shell
82−$ cabal run example -v0
73+$ cabal new-run
8374example: fError
8475CallStack (from HasCallStack):
85− error, called at example/Main.hs:47:10 in main:Main
76+ error, called at example/Main.hs:41:10 in main:Main
8677```
8778
8879Hmm, it is not useful. But, you will to be happy when enable this plugin.
@@ -93,22 +84,22 @@ Hmm, it is not useful. But, you will to be happy when enable this plugin.
9384```
9485
9586```shell
96−$ cabal run example -v0
87+$ cabal new-run
88+...
89+
9790example: fError
9891CallStack (from HasCallStack):
99− error, called at example/Main.hs:47:10 in main:Main
100− fError, called at example/Main.hs:43:11 in main:Main
101− f10, called at example/Main.hs:40:6 in main:Main
102− f9, called at example/Main.hs:37:11 in main:Main
103− f8, called at example/Main.hs:33:16 in main:Main
104− f7, called at example/Main.hs:29:11 in main:Main
105− f6, called at example/Main.hs:25:15 in main:Main
106− f5, called at example/Main.hs:21:8 in main:Main
107− f4, called at example/Main.hs:17:6 in main:Main
108− f3, called at example/Main.hs:13:6 in main:Main
109− f2, called at example/Main.hs:10:6 in main:Main
110− f1, called at example/Main.hs:7:14 in main:Main
111− main, called at example/Main.hs:7:1 in main:Main
92+ error, called at example/Main.hs:40:10 in main:Main
93+ fError, called at example/Main.hs:36:11 in main:Main
94+ f8, called at example/Main.hs:32:16 in main:Main
95+ f7, called at example/Main.hs:28:11 in main:Main
96+ f6, called at example/Main.hs:24:15 in main:Main
97+ f5, called at example/Main.hs:20:8 in main:Main
98+ f4, called at example/Main.hs:16:6 in main:Main
99+ f3, called at example/Main.hs:12:6 in main:Main
100+ f2, called at example/Main.hs:9:6 in main:Main
101+ f1, called at example/Main.hs:6:14 in main:Main
102+ main, called at example/Main.hs:6:1 in main:Main
112103```
113104
114−Great!!!
105+Great!!!
example/Main.hs+3−9
@@ -18,10 +18,10 @@ f3 = f4 0
1818
1919-- HsQualTy
2020f4 :: Show a => a -> Int
21−f4 n = f5 (show n) 0
21+f4 _ = f5 0 0
2222
2323-- HsFunTy
24−f5 :: String -> Int -> Int
24+f5 :: Int -> Int -> Int
2525f5 _ _ = head f6
2626
2727-- HsListTy
@@ -34,13 +34,7 @@ f7 = (fromJust f8, fromJust f8)
3434
3535-- HsAppTy
3636f8 :: Maybe Int
37−f8 = Just f9
38−
39−f9 :: Int
40−f9 = f10
41− where
42− f10 :: Int
43− f10 = fError
37+f8 = Just fError
4438
4539-- HsTyVar
4640fError :: Int
haskell-stack-trace-plugin.cabal+29−64
@@ -1,76 +1,41 @@
1−cabal-version: 2.4
2−name: haskell-stack-trace-plugin
3−version: 0.1.3.0
4−synopsis: haskell-stack-trace-plugin
5−description:
6− This plugin allow implicitly add HasCallStack class to every top-level function for all module. Hence, we can to get completely continuous call stack.
7−
8−homepage: https://github.com/waddlaw/haskell-stack-trace-plugin
9−bug-reports:
10− https://github.com/waddlaw/haskell-stack-trace-plugin/issues
11−
12−license: MIT
13−license-file: LICENSE
14−author: Shinya Yamaguchi
15−maintainer: a@wado.dev
16−copyright: 2018-2021 Shinya Yamaguchi
17−category: Compiler Plugin, Development, Debug
18−build-type: Simple
19−extra-source-files:
20− CHANGELOG.md
21− Readme.md
22−
23−tested-with: GHC ==8.6.5 || ==8.8.4 || ==8.10.4 || ==9.0.1
1+name: haskell-stack-trace-plugin
2+version: 0.1.0.1
3+synopsis: haskell-stack-trace-plugin
4+description: This plugin allow implicitly add HasCallStack class to every top-level function for all module. Hence, we can to get completely continuous call stack.
5+homepage: https://github.com/waddlaw/haskell-stack-trace-plugin
6+bug-reports: https://github.com/waddlaw/haskell-stack-trace-plugin/issues
7+license: MIT
8+license-file: LICENSE
9+author: Shinya Yamaguchi
10+maintainer: ingronze@gmail.com
11+copyright: 2018 Shinya Yamaguchi
12+category: Compiler Plugin, Development, Debug
13+build-type: Simple
14+extra-source-files: CHANGELOG.md, Readme.md
15+cabal-version: >=1.10
16+tested-with: GHC == 8.6.2
2417
2518source-repository head
2619 type: git
2720 location: git://github.com/waddlaw/haskell-stack-trace-plugin
2821
29−flag dev
30− description: Turn on development settings.
31− manual: True
32− default: False
33−
34−common common-opts
35− build-depends: base >=4.12 && <4.18
36− default-language: Haskell2010
37−
3822library
39− import: common-opts
40− hs-source-dirs: src
41− build-depends: ghc ^>=8.6 || ^>=8.8 || ^>=8.10 || ^>=9.0 || ^>=9.2 || ^>=9.4
42− exposed-modules: StackTrace.Plugin
43−
44− if flag(dev)
45− ghc-options:
46− -Wall -Werror -Wcompat -Wincomplete-uni-patterns
47− -Wnoncanonical-monad-instances -Wno-missing-home-modules
48−
49− else
50− ghc-options: -Wall
51−
52−test-suite test
53− import: common-opts
54− main-is: Spec.hs
55− hs-source-dirs: test
56− type: exitcode-stdio-1.0
23+ hs-source-dirs: src
5724 build-depends:
58− , bytestring >=0.10 && <0.12
59− , hspec ^>=2.8
60− , typed-process ^>=0.2
61−
62− build-tool-depends: hspec-discover:hspec-discover ^>=2.8
63− other-modules: StackTrace.PluginSpec
25+ base >=4.12 && <4.13,
26+ ghc>=8.6.2 && <8.6.6
6427
65− if flag(dev)
66− ghc-options: -Wall -Werror
28+ exposed-modules:
29+ StackTrace.Plugin
6730
68− else
69− ghc-options: -Wall
31+ default-language: Haskell2010
7032
7133executable example
72− import: common-opts
73− main-is: Main.hs
34+ main-is: Main.hs
7435 hs-source-dirs: example
75− ghc-options: -fplugin=StackTrace.Plugin -Wredundant-constraints
76− build-depends: haskell-stack-trace-plugin
36+ default-language: Haskell2010
37+ ghc-options:
38+ -fplugin=StackTrace.Plugin
39+ build-depends:
40+ base >=4.12 && <4.13,
41+ haskell-stack-trace-plugin
src/StackTrace/Plugin.hs+14−109
@@ -1,23 +1,11 @@
11{-# LANGUAGE RankNTypes #-}
22{-# LANGUAGE OverloadedStrings #-}
3−{-# LANGUAGE CPP #-}
43module StackTrace.Plugin (plugin) where
54
65import Control.Arrow (first)
76import Data.Monoid (Any(Any, getAny))
8−import GHC.Types.SrcLoc
9−#if __GLASGOW_HASKELL__ >= 900
10−import GHC.Plugins
11−#else
12−
137import GhcPlugins
14−#endif
15−#if __GLASGOW_HASKELL__ >= 810
16−import GHC.Hs
17−#endif
18−#if __GLASGOW_HASKELL__ < 810
198import HsSyn
20−#endif
219
2210type Traversal s t a b
2311 = forall f. Applicative f =>
@@ -40,30 +28,13 @@ parsedPlugin _ _ pm = do
4028ghcStackModuleName :: ModuleName
4129ghcStackModuleName = mkModuleName "AutoImported.GHC.Stack"
4230
43−#if __GLASGOW_HASKELL__ < 810
44−importDeclQualified :: Bool
45−importDeclQualified = True
46−#else
47−importDeclQualified :: ImportDeclQualifiedStyle
48−importDeclQualified = QualifiedPre
49−#endif
50−
5131ghcStackImport :: Located (ImportDecl (GhcPass p))
5232ghcStackImport =
53− L srcSpan $
33+ noLoc $
5434 (simpleImportDecl $ mkModuleName "GHC.Stack")
55− { ideclQualified = importDeclQualified, ideclAs = Just $ noLoc ghcStackModuleName }
56− where
57− -- This is for GHC-9 related problems. @noLoc@ causes GHC to throw warnings
58− -- about unused imports. Even if the import is used
59− -- See: https://github.com/waddlaw/haskell-stack-trace-plugin/issues/16
60− srcSpan = RealSrcSpan (realSrcLocSpan $ mkRealSrcLoc "haskell-stack-trace-plugin:very-unique-file-name-to-avoid-collision" 1 1) Nothing
61−
62−#if __GLASGOW_HASKELL__ >= 900
63−updateHsModule :: HsModule -> HsModule
64−#else
35+ {ideclQualified = True, ideclAs = Just $ noLoc ghcStackModuleName}
36+
6537updateHsModule :: HsModule GhcPs -> HsModule GhcPs
66−#endif
6738updateHsModule hsm =
6839 hsm {hsmodImports = hsmodImports', hsmodDecls = hsmodDecls'}
6940 where
@@ -85,6 +56,7 @@ updateHsModule hsm =
8556 astTraversal :: Traversal' (LHsDecl GhcPs) (HsType GhcPs)
8657 astTraversal = updateHsmodDecl
8758 . updateHsDecl
59+ . updateSig
8860 . updateLHsSigWsType
8961 . updateLHsSigType
9062 . updateLHsType
@@ -93,56 +65,10 @@ updateHsModule hsm =
9365updateHsmodDecl :: Traversal' (LHsDecl GhcPs) (HsDecl GhcPs)
9466updateHsmodDecl = traverse
9567
96−updateHsDecl :: Traversal' (HsDecl GhcPs) (LHsSigWcType GhcPs)
97−updateHsDecl f (SigD xSig s) = SigD xSig <$> updateSig f s
98−updateHsDecl f (ValD xVal hsBind) = ValD xVal <$> updateHsBind f hsBind
68+updateHsDecl :: Traversal' (HsDecl GhcPs) (Sig GhcPs)
69+updateHsDecl f (SigD xSig s) = SigD xSig <$> f s
9970updateHsDecl _ sig = pure sig
10071
101−updateHsBind :: Traversal' (HsBind GhcPs) (LHsSigWcType GhcPs)
102−updateHsBind f bind@FunBind {} = (\x -> bind {fun_matches = x}) <$> updateMatchGroup f (fun_matches bind)
103−updateHsBind _ bind = pure bind
104−
105−updateMatchGroup :: Traversal' (MatchGroup GhcPs (LHsExpr GhcPs)) (LHsSigWcType GhcPs)
106−updateMatchGroup f mg@MG {} = (\x -> mg {mg_alts = x}) <$> updateLLMatch f (mg_alts mg)
107−#if __GLASGOW_HASKELL__ < 900
108−updateMatchGroup _ mg = pure mg
109−#endif
110−
111−updateLocated :: Functor f => (a -> b -> f c) -> a -> Located b -> f (Located c)
112−updateLocated f g (L l e) = L l <$> f g e
113−
114−updateLLMatch :: Traversal' (Located [LMatch GhcPs (LHsExpr GhcPs)]) (LHsSigWcType GhcPs)
115−updateLLMatch = updateLocated updateLMatches
116−
117−updateLMatches :: Traversal' [LMatch GhcPs (LHsExpr GhcPs)] (LHsSigWcType GhcPs)
118−updateLMatches f = traverse (updateLocated updateMatch f)
119−
120−updateMatch :: Traversal' (Match GhcPs (LHsExpr GhcPs)) (LHsSigWcType GhcPs)
121−updateMatch f m@Match {} = (\x -> m {m_grhss = x}) <$> updateGrhss f (m_grhss m)
122−#if __GLASGOW_HASKELL__ < 900
123−updateMatch _ m = pure m
124−#endif
125−
126−updateGrhss :: Traversal' (GRHSs GhcPs (LHsExpr GhcPs)) (LHsSigWcType GhcPs)
127−updateGrhss f grhss@GRHSs {} = (\x -> grhss {grhssLocalBinds = x}) <$> updateLHsLocalBinds f (grhssLocalBinds grhss)
128−#if __GLASGOW_HASKELL__ < 900
129−updateGrhss _ grhss = pure grhss
130−#endif
131−
132−updateLHsLocalBinds :: Traversal' (LHsLocalBinds GhcPs) (LHsSigWcType GhcPs)
133−updateLHsLocalBinds = updateLocated updateLocalBinds
134−
135−updateLocalBinds :: Traversal' (HsLocalBinds GhcPs) (LHsSigWcType GhcPs)
136−updateLocalBinds f (HsValBinds xHsValBinds hsValBindsLR) = HsValBinds xHsValBinds <$> updateHsValBindsLR f hsValBindsLR
137−updateLocalBinds _ hsValBinds = pure hsValBinds
138−
139−updateHsValBindsLR :: Traversal' (HsValBindsLR GhcPs GhcPs) (LHsSigWcType GhcPs)
140−updateHsValBindsLR f (ValBinds xValBinds lHsBindsLR lSigs) = ValBinds xValBinds lHsBindsLR <$> updateLSigs f lSigs
141−updateHsValBindsLR _ valBinds = pure valBinds
142−
143−updateLSigs :: Traversal' [LSig GhcPs] (LHsSigWcType GhcPs)
144−updateLSigs f = traverse (updateLocated updateSig f)
145−
14672updateSig :: Traversal' (Sig GhcPs) (LHsSigWcType GhcPs)
14773updateSig f (TypeSig xSig ls t) = TypeSig xSig ls <$> f t
14874updateSig _ sig = pure sig
@@ -150,62 +76,41 @@ updateSig _ sig = pure sig
15076updateLHsSigWsType :: Traversal' (LHsSigWcType GhcPs) (LHsSigType GhcPs)
15177updateLHsSigWsType f lhs@HsWC {} =
15278 (\x -> lhs {hswc_body = x}) <$> f (hswc_body lhs)
153−#if __GLASGOW_HASKELL__ < 900
15479updateLHsSigWsType _ lhs = pure lhs
155−#endif
15680
15781updateLHsSigType :: Traversal' (LHsSigType GhcPs) (LHsType GhcPs)
15882updateLHsSigType f lhs@HsIB {} =
15983 (\x -> lhs {hsib_body = x}) <$> f (hsib_body lhs)
160−#if __GLASGOW_HASKELL__ < 900
16184updateLHsSigType _ lhs = pure lhs
162−#endif
16385
16486updateLHsType :: Traversal' (LHsType GhcPs) (HsType GhcPs)
16587updateLHsType = traverse
16688
16789-- Main process
16890updateHsType :: HsType GhcPs -> (Any, HsType GhcPs)
169−updateHsType ty@(HsQualTy xty ctxt body) =
170− if hasHasCallStack (unLoc ctxt)
171− then pure ty
172− else flagASTModified $ HsQualTy xty (fmap appendHSC ctxt) body
91+updateHsType (HsQualTy xty ctxt body) =
92+ flagASTModified $ HsQualTy xty (fmap appendHSC ctxt) body
17393updateHsType ty@HsTyVar {} =
174− flagASTModified $ HsQualTy xQualTy (noLoc $ appendHSC []) (noLoc ty)
94+ flagASTModified $ HsQualTy noExt (noLoc $ appendHSC []) (noLoc ty)
17595updateHsType ty@HsAppTy {} =
176− flagASTModified $ HsQualTy xQualTy (noLoc $ appendHSC []) (noLoc ty)
96+ flagASTModified $ HsQualTy noExt (noLoc $ appendHSC []) (noLoc ty)
17797updateHsType ty@HsFunTy {} =
178− flagASTModified $ HsQualTy xQualTy (noLoc $ appendHSC []) (noLoc ty)
98+ flagASTModified $ HsQualTy noExt (noLoc $ appendHSC []) (noLoc ty)
17999updateHsType ty@HsListTy {} =
180− flagASTModified $ HsQualTy xQualTy (noLoc $ appendHSC []) (noLoc ty)
100+ flagASTModified $ HsQualTy noExt (noLoc $ appendHSC []) (noLoc ty)
181101updateHsType ty@HsTupleTy {} =
182− flagASTModified $ HsQualTy xQualTy (noLoc $ appendHSC []) (noLoc ty)
102+ flagASTModified $ HsQualTy noExt (noLoc $ appendHSC []) (noLoc ty)
183103updateHsType ty = pure ty
184104
185−#if __GLASGOW_HASKELL__ < 810
186−xQualTy :: NoExt
187−xQualTy = noExt
188−#else
189−xQualTy :: NoExtField
190−xQualTy = NoExtField
191−#endif
192−
193105flagASTModified :: a -> (Any, a)
194106flagASTModified a = (Any True, a)
195107
196108appendHSC :: HsContext GhcPs -> HsContext GhcPs
197109appendHSC cs = mkHSC : cs
198110
199−hasHasCallStack :: HsContext GhcPs -> Bool
200−hasHasCallStack = any (checkHsType . unLoc)
201− where
202− checkHsType :: HsType GhcPs -> Bool
203− checkHsType (HsTyVar _ _ lid) = unLoc lid == (mkRdrUnqual $ mkClsOcc "HasCallStack")
204− checkHsType _ = False
205−
206111-- make HasCallStack => constraint
207112mkHSC :: LHsType GhcPs
208−mkHSC = noLoc $ HsTyVar xQualTy NotPromoted lId
113+mkHSC = noLoc $ HsTyVar noExt NotPromoted lId
209114
210115lId :: Located (IdP GhcPs)
211116lId = noLoc $ mkRdrQual ghcStackModuleName $ mkClsOcc "HasCallStack"
test/Spec.hsdeleted−1
@@ -1 +0,0 @@
1−{-# OPTIONS_GHC -F -pgmF hspec-discover #-}
test/StackTrace/PluginSpec.hsdeleted−21
@@ -1,21 +0,0 @@
1−{-# LANGUAGE OverloadedStrings #-}
2−module StackTrace.PluginSpec (spec) where
3−
4−import Data.ByteString.Lazy (ByteString)
5−import qualified Data.ByteString.Lazy as BL
6−import Test.Hspec
7−import System.Process.Typed
8−
9−spec :: Spec
10−spec = do
11− output <- runIO exe
12− expected <- runIO $ BL.readFile "test/resource/ghc.output"
13− it "integration test" $ output `shouldBe` expected
14−
15−
16−exe :: IO ByteString
17−exe = do
18− runProcess_ $ shell "cabal install exe:example --installdir=./dist"
19− err <- readProcessStderr_ $ shell "./dist/example || true"
20− runProcess_ $ shell "rm -rf ./dist"
21− return err
test/resource/ghc.outputdeleted−15
@@ -1,15 +0,0 @@
1−example: fError
2−CallStack (from HasCallStack):
3− error, called at example/Main.hs:47:10 in main:Main
4− fError, called at example/Main.hs:43:11 in main:Main
5− f10, called at example/Main.hs:40:6 in main:Main
6− f9, called at example/Main.hs:37:11 in main:Main
7− f8, called at example/Main.hs:33:16 in main:Main
8− f7, called at example/Main.hs:29:11 in main:Main
9− f6, called at example/Main.hs:25:15 in main:Main
10− f5, called at example/Main.hs:21:8 in main:Main
11− f4, called at example/Main.hs:17:6 in main:Main
12− f3, called at example/Main.hs:13:6 in main:Main
13− f2, called at example/Main.hs:10:6 in main:Main
14− f1, called at example/Main.hs:7:14 in main:Main
15− main, called at example/Main.hs:7:1 in main:Main