summaryrefslogtreecommitdiff
path: root/Backend.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-08-06 12:50:20 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-08-06 12:50:20 -0400
commit3ffc0bb4f57e20350f59c0e331656e54877916aa (patch)
treed3515f7e4b6629609a82f51fa535f0330c24a4c8 /Backend.hs
parent46ddb4e66aa1ba2a569eb8734c8ca0f40f3930d4 (diff)
foo
Diffstat (limited to 'Backend.hs')
-rw-r--r--Backend.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Backend.hs b/Backend.hs
index 3429e8f42..6942692e8 100644
--- a/Backend.hs
+++ b/Backend.hs
@@ -65,7 +65,7 @@ orderedList = do
genKey :: FilePath -> Maybe (Backend Annex) -> Annex (Maybe (Key, Backend Annex))
genKey file trybackend = do
bs <- orderedList
- let bs' = maybe bs (:bs) trybackend
+ let bs' = maybe bs (: bs) trybackend
genKey' bs' file
genKey' :: [Backend Annex] -> FilePath -> Annex (Maybe (Key, Backend Annex))
genKey' [] _ = return Nothing