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

optimize relatedTemplate

Browse source
This commit is contained in:
Joey Hess 2025-01-22 11:51:23 -04:00
parent 99a4ad708e
commit 6211e2af4a
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Utility/Tmp.hs
View file

@ -1,6 +1,6 @@
{- Temporary files. {- Temporary files.
- -
- Copyright 2010-2020 Joey Hess <id@joeyh.name> - Copyright 2010-2025 Joey Hess <id@joeyh.name>
- -
- License: BSD-2-clause - License: BSD-2-clause
-} -}
@ -21,6 +21,7 @@ import System.IO
import System.Directory import System.Directory
import Control.Monad.IO.Class import Control.Monad.IO.Class
import System.IO.Error import System.IO.Error
import Data.Char
import qualified Data.ByteString as B import qualified Data.ByteString as B
import qualified System.FilePath.ByteString as P import qualified System.FilePath.ByteString as P
@ -111,12 +112,12 @@ relatedTemplate f
{- Some filesystems like FAT have issues with filenames {- Some filesystems like FAT have issues with filenames
- ending in ".", so avoid truncating a filename to end - ending in ".", so avoid truncating a filename to end
- that way. -} - that way. -}
toOsPath $ toRawFilePath $ toOsPath $ B.dropWhileEnd (== dot) $ toRawFilePath $
reverse $ dropWhile (== '.') $ reverse $ truncateFilePath (len - templateAddedLength) (fromRawFilePath f)
truncateFilePath (len - templateAddedLength) (fromRawFilePath f)
| otherwise = toOsPath f | otherwise = toOsPath f
where where
len = B.length f len = B.length f
dot = fromIntegral (ord '.')
{- 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.