From 883c5bb6d218020bc6ba2c7dec6e042dfe5d076f Mon Sep 17 00:00:00 2001 From: Alexander Diemand Date: Mon, 14 Sep 2020 09:16:02 -0700 Subject: [PATCH] f Signed-off-by: Alexander Diemand --- cardano-rt-view/src/Cardano/Benchmarking/RTView/Config.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cardano-rt-view/src/Cardano/Benchmarking/RTView/Config.hs b/cardano-rt-view/src/Cardano/Benchmarking/RTView/Config.hs index 72a21b14..b64eaa07 100644 --- a/cardano-rt-view/src/Cardano/Benchmarking/RTView/Config.hs +++ b/cardano-rt-view/src/Cardano/Benchmarking/RTView/Config.hs @@ -343,7 +343,7 @@ askAboutLocationForPipes nodesNumber = do prepname :: FilePath -> Text -> FilePath #if defined(mingw32_HOST_OS) mkdir _ = pure () - prepname d n = "\"" ++ (T.unpack $ T.replace "\\" "\\\\" (d <> "_" <> n)) ++ "\"" + prepname d n = "\"" ++ (T.unpack $ T.replace "\\" "\\\\" (T.pack d <> "_" <> n)) ++ "\"" #else mkdir = createDirectoryIfMissing True prepname d n = d T.unpack n