From 6d6111dd8c244285c484e416a84ed4c4a89313e1 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 16 Jun 2015 19:07:14 -0400
Subject: move comment

---
 Command/Sync.hs | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'Command')

diff --git a/Command/Sync.hs b/Command/Sync.hs
index 9ad0b8deb..958f034c8 100644
--- a/Command/Sync.hs
+++ b/Command/Sync.hs
@@ -363,17 +363,6 @@ newer remote b = do
  - This ensures that preferred content expressions that match on
  - filenames work, even when in --all mode.
  -
- - If it's preferred content, and we don't have it, get it from one of the
- - listed remotes (preferring the cheaper earlier ones).
- -
- - Send it to each remote that doesn't have it, and for which it's
- - preferred content.
- -
- - Drop it locally if it's not preferred content (honoring numcopies).
- - 
- - Drop it from each remote that has it, where it's not preferred content
- - (honoring numcopies).
- -
  - If any file movements were generated, returns true.
  -}
 seekSyncContent :: [Remote] -> Annex Bool
@@ -394,6 +383,17 @@ seekSyncContent rs = do
 		void $ liftIO $ tryPutMVar mvar ()
 		syncFile ebloom rs af k
 
+{- If it's preferred content, and we don't have it, get it from one of the
+ - listed remotes (preferring the cheaper earlier ones).
+ -
+ - Send it to each remote that doesn't have it, and for which it's
+ - preferred content.
+ -
+ - Drop it locally if it's not preferred content (honoring numcopies).
+ - 
+ - Drop it from each remote that has it, where it's not preferred content
+ - (honoring numcopies).
+ -}
 syncFile :: Either (Maybe (Bloom Key)) (Key -> Annex ()) -> [Remote] -> AssociatedFile -> Key -> Annex ()
 syncFile ebloom rs af k = do
 	locs <- loggedLocations k
-- 
cgit v1.2.3