fix: create directory to dump debug ast

Author: guibou

plugins/hls-refactor-plugin/src/Development/IDE/Plugin/CodeAction/Util.hs

@@ -13,6 +13,7 @@ import           GHC.Utils.Outputable
 import           System.Environment.Blank              (getEnvDefault)
 import           System.IO.Unsafe
 import           Text.Printf
+import System.Directory.Extra (createDirectoryIfMissing)
 --------------------------------------------------------------------------------
 -- Tracing exactprint terms
 
@@ -37,6 +38,7 @@ traceAst lbl x
     doTrace = unsafePerformIO $ do
         u <- U.newUnique
         let htmlDumpFileName = printf "/tmp/hls/%s-%s-%d.html" (show timestamp) lbl (U.hashUnique u)
+        createDirectoryIfMissing True "/tmp/hls"
         writeFile htmlDumpFileName $ renderDump htmlDump
         return $ unlines
             [prettyCallStack callStack ++ ":"