codedownio/sandwich
1
1
Fork 0
mirror of https://github.com/codedownio/sandwich.git synced 2024-10-27 13:10:23 +03:00
Code Issues Projects Releases Wiki Activity

Fix up backslash for windows paths

Browse Source
This commit is contained in:
Tom McLaughlin 2022-09-29 01:56:35 -06:00
parent 86e3e0674b
commit d052d6330d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
sandwich/src/Test/Sandwich/Interpreters/RunTree/Util.hs
View File

@ -82,6 +82,7 @@ nodeToFolderName name numSiblings indexInParent = padding <> truncateFileNameToL
| otherwise -> paddedNumber <> "_"
fixupName = replace '/' '_'
. replace '\\' '_'
replace :: Eq a => a -> a -> [a] -> [a]
replace a b = map $ \c -> if c == a then b else c