Merge branch 'master' into ospath

This commit is contained in:
Joey Hess 2025-02-05 13:31:07 -04:00
commit 9394197621
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 31 additions and 5 deletions

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

View file

@ -6,6 +6,7 @@
-} -}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE CPP #-}
{-# OPTIONS_GHC -fno-warn-tabs #-} {-# OPTIONS_GHC -fno-warn-tabs #-}
module Utility.Tmp ( module Utility.Tmp (
@ -110,6 +111,7 @@ relatedTemplate :: RawFilePath -> Template
relatedTemplate = toOsPath . relatedTemplate' relatedTemplate = toOsPath . relatedTemplate'
relatedTemplate' :: RawFilePath -> RawFilePath relatedTemplate' :: RawFilePath -> RawFilePath
#ifndef mingw32_HOST_OS
relatedTemplate' f relatedTemplate' f
| len > templateAddedLength = | len > templateAddedLength =
{- Some filesystems like FAT have issues with filenames {- Some filesystems like FAT have issues with filenames
@ -121,6 +123,11 @@ relatedTemplate' f
where where
len = B.length f len = B.length f
dot = fromIntegral (ord '.') dot = fromIntegral (ord '.')
#else
-- Avoids a test suite failure on windows, reason unknown, but
-- best to keep paths short on windows anyway.
relatedTemplate' _ = "t"
#endif
{- When a Template is used to create a temporary file, some random bytes {- When a Template is used to create a temporary file, some random bytes
- are appended to it. This is how many such bytes can be added, maximum. - are appended to it. This is how many such bytes can be added, maximum.

View file

@ -0,0 +1,8 @@
[[!comment format=mdwn
username="luciusf"
avatar="http://cdn.libravatar.org/avatar/b86fbf4daa865feb784bdc638e2236be"
subject="comment 2"
date="2025-01-30T19:17:58Z"
content="""
Thank you for your reply. And I see what you mean, although personally it still feels more that a bug than a feature. Trying to be a good internet citizen I exhausted every documentation I could find about it, and it still took me way too long to figure out something that simple. Maybe the manpage could reflect this bit of information in more detail - let's see if I can figure out, how to contribute patches ...
"""]]

View file

@ -0,0 +1,8 @@
[[!comment format=mdwn
username="jnkl"
avatar="http://cdn.libravatar.org/avatar/2ab576f3bf2e0d96b1ee935bb7f33dbe"
subject="comment 2"
date="2025-01-30T19:59:09Z"
content="""
Thank you. The bash-tab-completion in Debian stable suggested it.
"""]]