diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-06-12 11:32:06 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-06-12 11:32:06 -0400 |
| commit | 942d8f72984377c4e69d7c55877621d434e5d687 (patch) | |
| tree | da1f205c66d57a4a88c727af382c4d6e09c2e881 /Annex | |
| parent | 85f0992c0378aad442da5dbbd5deadffe33f77e1 (diff) | |
hlint
Diffstat (limited to 'Annex')
| -rw-r--r-- | Annex/Branch.hs | 2 | ||||
| -rw-r--r-- | Annex/Content.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/Annex/Branch.hs b/Annex/Branch.hs index 7b433cc6e..8e7f45a4a 100644 --- a/Annex/Branch.hs +++ b/Annex/Branch.hs @@ -68,7 +68,7 @@ siblingBranches = inRepo $ Git.Ref.matchingUniq name {- Creates the branch, if it does not already exist. -} create :: Annex () -create = void $ getBranch +create = void getBranch {- Returns the ref of the branch, creating it first if necessary. -} getBranch :: Annex Git.Ref diff --git a/Annex/Content.hs b/Annex/Content.hs index 232b43b2c..3e3e95868 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -87,7 +87,7 @@ lockContent key a = do - to fiddle with permissions to open for an exclusive lock. -} openforlock f = catchMaybeIO $ ifM (doesFileExist f) ( withModifiedFileMode f - (\cur -> cur `unionFileModes` ownerWriteMode) + (`unionFileModes` ownerWriteMode) open , open ) |