diff options
Diffstat (limited to 'Locations.hs')
| -rw-r--r-- | Locations.hs | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/Locations.hs b/Locations.hs index 6142b2393..347b08ce1 100644 --- a/Locations.hs +++ b/Locations.hs @@ -19,8 +19,6 @@ module Locations ( gitAnnexUnusedLog, gitAnnexJournalDir, isLinkToAnnex, - logFile, - logFileKey, hashDirMixed, hashDirLower, @@ -115,18 +113,6 @@ gitAnnexJournalDir r = addTrailingPathSeparator $ gitAnnexDir r </> "journal" isLinkToAnnex :: FilePath -> Bool isLinkToAnnex s = ("/.git/" ++ objectDir) `isInfixOf` s -{- The filename of the log file for a given key. -} -logFile :: Key -> String -logFile key = hashDirLower key ++ keyFile key ++ ".log" - -{- Converts a log filename into a key. -} -logFileKey :: FilePath -> Maybe Key -logFileKey file - | end == ".log" = readKey beginning - | otherwise = Nothing - where - (beginning, end) = splitAt (length file - 4) file - {- Converts a key into a filename fragment. - - Escape "/" in the key name, to keep a flat tree of files and avoid |