Fix a bug in view filename generation when a metadata value ended with "/"
Or ":" or "\" on Windows, eg "c:" again.
This commit is contained in:
parent
e2ba8ae4a6
commit
5c7e6629cf
3 changed files with 22 additions and 1 deletions
|
@ -253,7 +253,8 @@ toViewPath = escapepseudo [] . decodeBS . fromMetaValue
|
|||
| [c1,c2,c3] == pseudoBackslash = escapepseudo ("%":pseudoBackslash:s) cs
|
||||
| [c1,c2,c3] == pseudoColon = escapepseudo ("%":pseudoColon:s) cs
|
||||
| otherwise = escapepseudo ([c1]:s) (c2:c3:cs)
|
||||
escapepseudo s cs = concat (reverse (cs:s))
|
||||
escapepseudo s (c:cs) = escapepseudo ([c]:s) cs
|
||||
escapepseudo s [] = concat (reverse s)
|
||||
|
||||
fromViewPath :: FilePath -> MetaValue
|
||||
fromViewPath = toMetaValue . encodeBS . deescapepseudo []
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue