main :: IO ()
main = withSystemTempDirectory "runstaskell-test" $ \ dir -> do
  writeFile (dir </> "foo") "03-success"
  putStrLn =<< readFile (dir </> "foo")
main :: IO ()
main = withSystemTempDirectory "runstaskell-test" $ \ dir -> do
  writeFile (dir </> "foo") "03-success"
  putStrLn =<< readFile (dir </> "foo")
main = withSystemTempDirectory "runstaskell-test" $ \ dir -> do
  writeFile (dir </> "foo") "03-success"
  putStrLn =<< readFile (dir </> "foo")