Commit ed37a9e

committed

fix: create directory to dump debug ast

1 parent 29b2ecb commit ed37a9eCopy full SHA for ed37a9e

File tree

-0

lines changed

-0

lines changed

Lines changed: 2 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -10,6 +10,7 @@ import Development.IDE.GHC.Compat.ExactPrint as GHC`
`10`	`10`	`import Development.IDE.GHC.Dump (showAstDataHtml)`
`11`	`11`	`import GHC.Stack`
`12`	`12`	`import GHC.Utils.Outputable`
	`13`	`+import System.Directory.Extra (createDirectoryIfMissing)`
`13`	`14`	`import System.Environment.Blank (getEnvDefault)`
`14`	`15`	`import System.IO.Unsafe`
`15`	`16`	`import Text.Printf`
`@@ -37,6 +38,7 @@ traceAst lbl x`
`37`	`38`	`doTrace = unsafePerformIO $ do`
`38`	`39`	`u <- U.newUnique`
`39`	`40`	`let htmlDumpFileName = printf "/tmp/hls/%s-%s-%d.html" (show timestamp) lbl (U.hashUnique u)`
	`41`	`+ createDirectoryIfMissing True "/tmp/hls"`
`40`	`42`	`writeFile htmlDumpFileName $ renderDump htmlDump`
`41`	`43`	`return $ unlines`
`42`	`44`	`[prettyCallStack callStack ++ ":"`

Comments

(0)