diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-31 02:34:03 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-31 02:34:03 -0400 |
| commit | acec36711090577752532a39f472e734e6b67fdb (patch) | |
| tree | 6a3a5de0ec092e19c28464f4e2703fda9571b264 /Assistant/Threads/Merger.hs | |
| parent | 661eda766a8aa5c548ad89d8360bd4219eea138b (diff) | |
where indentation
Diffstat (limited to 'Assistant/Threads/Merger.hs')
| -rw-r--r-- | Assistant/Threads/Merger.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Assistant/Threads/Merger.hs b/Assistant/Threads/Merger.hs index 44056dc35..105f0cc9f 100644 --- a/Assistant/Threads/Merger.hs +++ b/Assistant/Threads/Merger.hs @@ -86,15 +86,15 @@ onAdd file equivBranches :: Git.Ref -> Git.Ref -> Bool equivBranches x y = base x == base y - where - base = takeFileName . show + where + base = takeFileName . show isAnnexBranch :: FilePath -> Bool isAnnexBranch f = n `isSuffixOf` f - where - n = "/" ++ show Annex.Branch.name + where + n = "/" ++ show Annex.Branch.name fileToBranch :: FilePath -> Git.Ref fileToBranch f = Git.Ref $ "refs" </> base - where - base = Prelude.last $ split "/refs/" f + where + base = Prelude.last $ split "/refs/" f |