diff options
| -rw-r--r-- | Annex/Link.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex/Link.hs b/Annex/Link.hs index 739ada76c..f10cca5c8 100644 --- a/Annex/Link.hs +++ b/Annex/Link.hs @@ -147,7 +147,7 @@ parseLinkOrPointer' :: String -> Maybe Key parseLinkOrPointer' = go . fromInternalGitPath . takeWhile (not . lineend) where go l - | isLinkToAnnex l = file2key $ takeFileName l + | isLinkToAnnex l = fileKey $ takeFileName l | otherwise = Nothing lineend '\n' = True lineend '\r' = True @@ -155,7 +155,7 @@ parseLinkOrPointer' = go . fromInternalGitPath . takeWhile (not . lineend) formatPointer :: Key -> String formatPointer k = - toInternalGitPath (pathSeparator:objectDir </> key2file k) ++ "\n" + toInternalGitPath (pathSeparator:objectDir </> keyFile k) ++ "\n" {- Checks if a file is a pointer to a key. -} isPointerFile :: FilePath -> IO (Maybe Key) |