remove now redundant function

diff --git a/Annex/Journal.hs b/Annex/Journal.hs
index 9ce80d8c440b91055a5c27cd1075a46e9fd7608e..a8269a7e5910c4dc74d9f95c39d3b692d1d125e1 100644 (file)
--- a/Annex/Journal.hs
+++ b/Annex/Journal.hs
@@ -106,7 +106,7 @@ journalDirty = do
  - in the journal directory.
  -}
 journalFile :: RawFilePath -> Git.Repo -> RawFilePath
-journalFile file repo = gitAnnexJournalDir' repo P.</> S.concatMap mangle file
+journalFile file repo = gitAnnexJournalDir repo P.</> S.concatMap mangle file
   where
        mangle c
                | P.isPathSeparator c = S.singleton underscore

diff --git a/Annex/Locations.hs b/Annex/Locations.hs
index c44300a65e16043ee1133c4490610b5cb5899115..7a3f63083ed77da79450192386ca829ef9c080c2 100644 (file)
--- a/Annex/Locations.hs
+++ b/Annex/Locations.hs
@@ -63,7 +63,6 @@ module Annex.Locations (
        gitAnnexFeedState,
        gitAnnexMergeDir,
        gitAnnexJournalDir,
-       gitAnnexJournalDir',
        gitAnnexJournalLock,
        gitAnnexGitQueueLock,
        gitAnnexIndex,
@@ -432,10 +431,6 @@ gitAnnexJournalDir :: Git.Repo -> RawFilePath
 gitAnnexJournalDir r = 
        P.addTrailingPathSeparator $ gitAnnexDir r P.</> "journal"
 
-gitAnnexJournalDir' :: Git.Repo -> RawFilePath
-gitAnnexJournalDir' r =
-       P.addTrailingPathSeparator $ gitAnnexDir r P.</> "journal"
-
 {- Lock file for the journal. -}
 gitAnnexJournalLock :: Git.Repo -> RawFilePath
 gitAnnexJournalLock r = gitAnnexDir r P.</> "journal.lck"