Fix bug in last version in getting contents from bare repositories.

Locations.hs

@@ -80,16 +80,15 @@ gitAnnexLocation key r
 	| Git.repoIsLocalBare r =
 		{- Bare repositories default to hashDirLower for new
 		 - content, as it's more portable. -}
-		go (Git.workTree r) (annexLocations key)
+		check (map inrepo $ annexLocations key)
 	| otherwise =
 		{- Non-bare repositories only use hashDirMixed, so
 		 - don't need to do any work to check if the file is
 		 - present. -}
-		return $ Git.workTree r </> ".git" </>
-				annexLocation key hashDirMixed
+		return $ inrepo ".git" </> annexLocation key hashDirMixed
 	where
-		go dir locs = fromMaybe (dir </> head locs) <$> check dir locs
-		check dir = firstM $ \f -> doesFileExist $ dir </> f
+		inrepo = (</>) (Git.workTree r)
+		check locs = fromMaybe (head locs) <$> firstM doesFileExist locs
 
 {- The annex directory of a repository. -}
 gitAnnexDir :: Git.Repo -> FilePath

debian/changelog

@@ -12,6 +12,7 @@ git-annex (3.20111204) UNRELEASED; urgency=low
   * sync: New command that synchronises the local repository and default
     remote, by running git commit, pull, and push for you.
   * Version monad-control dependency in cabal file.
+  * Fix bug in last version in getting contents from bare repositories.
 
  -- Joey Hess <joeyh@debian.org>  Sun, 04 Dec 2011 12:22:37 -0400
 

doc/bugs/Can__39__t___34__git-annex_get__34___with_3.20111203.mdwn

@@ -19,3 +19,8 @@ Note there is a call to `stat()` with the full path to the requested file, and *
 Using `git bisect` I was able to determine that this bug appeared in commit 64672c62 ("refactor"). Reverting it makes `git-annex-shell` work as expected, but I'm sure there are better ways to fix this. However I don't know enough Haskell to do it myself.
 
 Could you please try to fix this in a future version?
+
+> Thanks for a very good bug report. 
+> 
+> I've fixed this stupid mistake introduced in the code refactoring.
+> --[[Joey]]