calcBranchRepoSizes without journal files

This will be used to prime the RepoSizes database, which will always
contain values that correpond to information in the git-annex branch, so
without anything from journal files.

Factored out overJournalFileContents which will later be used to
update Annex.reposizes to include information from journal files.
This will be partitcularly important to support private UUIDs which only
ever get to journal files and not to the branch.

Command/Info.hs

@@ -652,7 +652,7 @@ cachedAllRepoData = do
 					, return (d, rd)
 					)
 			case r of
-				NoUnmergedBranches (!(d, rd)) -> do
+				NoUnmergedBranches (!(d, rd), _) -> do
 					let s' = s { allRepoData = Just d, repoData = rd }
 					put s'
 					return s'