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:
Joey Hess 2021-01-22 14:05:14 -04:00
parent e2ba8ae4a6
commit 5c7e6629cf
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 22 additions and 1 deletions

View file

@ -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 []