From 3e55a8f164d67d5bd1ef86ae2f38fb2c6c3a51b2 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 12 Dec 2012 19:20:38 -0400 Subject: direct mode committing --- Backend.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'Backend.hs') diff --git a/Backend.hs b/Backend.hs index b66e6130e..1e3d8f94f 100644 --- a/Backend.hs +++ b/Backend.hs @@ -52,8 +52,7 @@ orderedList = do parseBackendList s = map lookupBackendName $ words s {- Generates a key for a file, trying each backend in turn until one - - accepts it. - -} + - accepts it. -} genKey :: KeySource -> Maybe Backend -> Annex (Maybe (Key, Backend)) genKey source trybackend = do bs <- orderedList @@ -94,8 +93,7 @@ lookupFile file = do return Nothing {- Looks up the backend that should be used for a file. - - That can be configured on a per-file basis in the gitattributes file. - -} + - That can be configured on a per-file basis in the gitattributes file. -} chooseBackend :: FilePath -> Annex (Maybe Backend) chooseBackend f = Annex.getState Annex.forcebackend >>= go where -- cgit v1.2.3