This commit is contained in:
Joey Hess 2011-03-27 18:02:42 -04:00
parent 305b11d7c2
commit 9a4127f0fe
2 changed files with 6 additions and 0 deletions

View file

@ -226,6 +226,7 @@ getKeysPresent1' dir = do
return $ map fileKey1 files
where
present d = do
liftIO $ putStrLn $ dir ++ "/" ++ d ++ "/" ++ takeFileName d
result <- try $
getFileStatus $ dir ++ "/" ++ d ++ "/" ++ takeFileName d
case result of