Use workspace function from hedgehog-extras for creating temp dir

Author: palas

cardano-wasm/cardano-wasm.cabal

@@ -85,10 +85,8 @@ test-suite cardano-wasm-golden
       filepath,
       hedgehog >=1.1,
       hedgehog-extras ^>=0.8,
-      monad-control,
       tasty,
       tasty-hedgehog,
-      temporary,
 
     ghc-options:
       -threaded

cardano-wasm/test/cardano-wasm-golden/Test/Golden/Cardano/Wasm/TypeScript.hs

@@ -2,23 +2,21 @@ module Test.Golden.Cardano.Wasm.TypeScript where
 
 import Control.Monad (forM_)
 import Control.Monad.IO.Class qualified as H
-import Control.Monad.Trans.Control (control)
 import System.FilePath ((</>))
-import System.IO.Temp (withSystemTempDirectory)
 
 import Hedgehog as H
+import Hedgehog.Extras (workspace)
 import Hedgehog.Extras qualified as H
 
 hprop_cardano_wasm_typescript_declarations_match_generated :: Property
 hprop_cardano_wasm_typescript_declarations_match_generated =
   H.propertyOnce $ do
-    control $ \runInHedgehog ->
-      H.liftIO $ withSystemTempDirectory "cardano-wasm-ts-decls" $ \dir -> do
-        runInHedgehog $ do
-          _ <- H.execFlex "cardano-wasm" "CARDANO_WASM" ["--output-dir", dir]
-          forFilesInDir dir $ \file -> do
-            H.annotate (dir </> file)
-            H.diffFileVsGoldenFile (dir </> file) ("lib-wrapper" </> file)
+    workspace "cardano-wasm-ts-decls" $ \workDir -> do
+      dir <- H.createDirectoryIfMissing (workDir </> "lib-wrapper")
+      _ <- H.execFlex "cardano-wasm" "CARDANO_WASM" ["--output-dir", dir]
+      forFilesInDir dir $ \file -> do
+        H.annotate (dir </> file)
+        H.diffFileVsGoldenFile (dir </> file) ("lib-wrapper" </> file)
 
 forFilesInDir :: (H.MonadTest m, H.MonadIO m) => FilePath -> (FilePath -> m ()) -> m ()
 forFilesInDir dir action = do