summaryrefslogtreecommitdiff
path: root/Annex
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-07-18 13:30:53 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-07-18 13:31:00 -0400
commit05310538ef4f2c0c483bab355083ec2044a12a0a (patch)
treec16d81764f760d82a3060e6a6f81f33cee87fae6 /Annex
parent182526ff68b1ca68952b4dbd32121e46d4a80e85 (diff)
more debugging
Diffstat (limited to 'Annex')
-rw-r--r--Annex/Branch.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/Annex/Branch.hs b/Annex/Branch.hs
index 8e7f45a4a..e551bfcd0 100644
--- a/Annex/Branch.hs
+++ b/Annex/Branch.hs
@@ -164,7 +164,9 @@ get' staleok file = fromcache =<< getCache file
fromjournal Nothing
| staleok = withIndex frombranch
| otherwise = withIndexUpdate $ frombranch >>= cache
- frombranch = L.unpack <$> catFile fullname file
+ frombranch = do
+ liftIO $ putStrLn $ "frombranch " ++ file
+ L.unpack <$> catFile fullname file
cache content = do
setCache file content
return content