mirror of
https://github.com/codedownio/sandwich.git
synced 2024-10-27 04:59:50 +03:00
Fix up backslash for windows paths
This commit is contained in:
parent
86e3e0674b
commit
d052d6330d
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user