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

optimise logfile to key parsing

Browse source 
Using bytestring-filepath
This commit is contained in:
Joey Hess 2020-07-07 13:03:33 -04:00
parent 9468675ba9
commit 98e2e3cb9c
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Logs.hs
View file

@ -205,11 +205,11 @@ isRemoteContentIdentifierLog path = remoteContentIdentifierExt `S.isSuffixOf` pa
{- From an extension and a log filename, get the key that it's a log for. -} {- From an extension and a log filename, get the key that it's a log for. -}
extLogFileKey :: S.ByteString -> RawFilePath -> Maybe Key extLogFileKey :: S.ByteString -> RawFilePath -> Maybe Key
extLogFileKey expectedext path extLogFileKey expectedext path
| encodeBS' ext == expectedext = fileKey (toRawFilePath base) | ext == expectedext = fileKey base
| otherwise = Nothing | otherwise = Nothing
where where
file = takeFileName (fromRawFilePath path) file = P.takeFileName path
(base, ext) = splitAt (length file - extlen) file (base, ext) = S.splitAt (S.length file - extlen) file
extlen = S.length expectedext extlen = S.length expectedext
{- Converts a url log file into a key. {- Converts a url log file into a key.