TFVec builtin should now completely work

[matthijs/master-project/cλash.git] / cλash / CLasH / Translator.hs

diff --git a/cλash/CLasH/Translator.hs b/cλash/CLasH/Translator.hs
index 7ea489f7d2a439926cb8d0376978841c46b57cc9..8f2c7dc98d2b05e7bc7bd2ea6baa71a95cb7ac9f 100644 (file)
--- a/cλash/CLasH/Translator.hs
+++ b/cλash/CLasH/Translator.hs
@@ -4,7 +4,7 @@ module CLasH.Translator
   ) where
 
 -- Standard Modules
-import qualified Directory
+import qualified System.Directory as Directory
 import qualified Maybe
 import qualified Monad
 import qualified System.FilePath as FilePath
@@ -114,8 +114,7 @@ moduleToVHDL env cores top init test stateful = do
 prepareDir :: String -> IO()
 prepareDir dir = do
   -- Create the dir if needed
-  exists <- Directory.doesDirectoryExist dir
-  Monad.unless exists $ Directory.createDirectory dir
+  Directory.createDirectoryIfMissing True dir
   -- Find all .vhdl files in the directory
   files <- Directory.getDirectoryContents dir
   let to_remove = filter ((==".vhdl") . FilePath.takeExtension) files