diff options
author | Joey Hess <joey@kitenet.net> | 2012-12-13 00:24:19 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-12-13 00:24:19 -0400 |
commit | 94554782894ec6c26da3b46312d5d1d16d596458 (patch) | |
tree | 78746106bfb153945ccbfd2bbae536081c005e91 /Annex/Journal.hs | |
parent | 55bd61d8c42aaf36a3c57f8444c493f6b045f4cd (diff) |
finished where indentation changes
Diffstat (limited to 'Annex/Journal.hs')
-rw-r--r-- | Annex/Journal.hs | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/Annex/Journal.hs b/Annex/Journal.hs index b6ed79272..2df5294ee 100644 --- a/Annex/Journal.hs +++ b/Annex/Journal.hs @@ -63,10 +63,10 @@ journalDirty = not . null <$> getJournalFiles -} journalFile :: FilePath -> Git.Repo -> FilePath journalFile file repo = gitAnnexJournalDir repo </> concatMap mangle file - where - mangle '/' = "_" - mangle '_' = "__" - mangle c = [c] + where + mangle '/' = "_" + mangle '_' = "__" + mangle c = [c] {- Converts a journal file (relative to the journal dir) back to the - filename on the branch. -} @@ -81,9 +81,9 @@ lockJournal a = do createAnnexDirectory $ takeDirectory file mode <- annexFileMode bracketIO (lock file mode) unlock a - where - lock file mode = do - l <- noUmask mode $ createFile file mode - waitToSetLock l (WriteLock, AbsoluteSeek, 0, 0) - return l - unlock = closeFd + where + lock file mode = do + l <- noUmask mode $ createFile file mode + waitToSetLock l (WriteLock, AbsoluteSeek, 0, 0) + return l + unlock = closeFd |