f

Signed-off-by: Alexander Diemand <codieplusplus@apax.net>
input-output-hk · Sep 14, 2020 · 883c5bb · 883c5bb
1 parent b070e9d
commit 883c5bb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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