From f109211c2a3581ac385145f5b6408a00f4e59c65 Mon Sep 17 00:00:00 2001
From: Valerii Butorin <butorinva@yandex-team.ru>
Date: Tue, 30 Apr 2024 14:38:09 +0300
Subject: [PATCH] fix

---
 src/NITTA/Model/Microarchitecture/Config.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/NITTA/Model/Microarchitecture/Config.hs b/src/NITTA/Model/Microarchitecture/Config.hs
index 5048cc40..6a3e98e2 100644
--- a/src/NITTA/Model/Microarchitecture/Config.hs
+++ b/src/NITTA/Model/Microarchitecture/Config.hs
@@ -24,7 +24,8 @@ import Data.Map as M (
     toList,
  )
 import Data.Maybe (fromMaybe)
-import Data.Text qualified as T
+import Data.Text
+ qualified as T
 import Data.Yaml (
     FromJSON (parseJSON),
     ToJSON (toJSON),
@@ -43,6 +44,7 @@ import NITTA.Model.Networks.Bus (
  )
 import NITTA.Model.Networks.Types (IOSynchronization)
 import NITTA.Model.ProcessorUnits qualified as PU
+import System.Directory (createDirectoryIfMissing)
 
 data PUConf
     = Accum
@@ -105,6 +107,7 @@ parseConfig path = do
 
 saveConfig :: FilePath -> MicroarchitectureConf -> IO ()
 saveConfig path conf = do
+    createDirectoryIfMissing True path
     encodeFile (path <> "/microarch.yml") conf
 
 mkMicroarchitecture :: (Val v, Var x, ToJSON x) => MicroarchitectureConf -> BusNetwork T.Text x v Int