diff options
author | Joey Hess <joey@kitenet.net> | 2012-07-18 13:30:53 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-07-18 13:31:00 -0400 |
commit | 05310538ef4f2c0c483bab355083ec2044a12a0a (patch) | |
tree | c16d81764f760d82a3060e6a6f81f33cee87fae6 /Annex | |
parent | 182526ff68b1ca68952b4dbd32121e46d4a80e85 (diff) |
more debugging
Diffstat (limited to 'Annex')
-rw-r--r-- | Annex/Branch.hs | 4 |
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 |