mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix truncateFilePath edge case on windows

Browse source 
If the filepath starts with something that is not valid utf-8, it would
have returned "". And if the filepath was all non-valid utf-8, it would
also return "".
This commit is contained in:
Joey Hess 2025-01-30 16:51:42 -04:00
parent b596e3b177
commit 773115fd5f
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Utility/FileSystemEncoding.hs
View file

@ -157,10 +157,13 @@ truncateFilePath n = toRawFilePath . reverse . go [] n
go coll cnt bs go coll cnt bs
| cnt <= 0 = coll | cnt <= 0 = coll
| otherwise = case S8.decode bs of | otherwise = case S8.decode bs of
Just (c, x) | c /= S8.replacement_char -> Just (c, x)
let x' = fromIntegral x | c /= S8.replacement_char ->
in if cnt - x' < 0 let x' = fromIntegral x
then coll in if cnt - x' < 0
else go (c:coll) (cnt - x') (S8.drop 1 bs) then coll
else go (c:coll) (cnt - x') (S8.drop 1 bs)
| otherwise ->
go ('_':coll) (cnt - 1) (S8.drop 1 bs)
_ -> coll _ -> coll
#endif #endif