Merge branch 'master' into ospath
This commit is contained in:
commit
9394197621
4 changed files with 31 additions and 5 deletions
|
@ -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
|
||||||
|
|
|
@ -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.
|
||||||
|
|
|
@ -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 ...
|
||||||
|
"""]]
|
|
@ -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.
|
||||||
|
"""]]
|
Loading…
Add table
Add a link
Reference in a new issue