diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-03-27 18:02:42 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-03-27 18:02:42 -0400 |
| commit | 9a4127f0fed9fa9cd684fff78b3a2af9da3c62ad (patch) | |
| tree | 2f13f09faf5be29829df5e84e6214954468f8752 /Upgrade | |
| parent | 305b11d7c29b61e4fe328460fd50af590b4df6f6 (diff) | |
response
Diffstat (limited to 'Upgrade')
| -rw-r--r-- | Upgrade/V1.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Upgrade/V1.hs b/Upgrade/V1.hs index c0470a3bc..a87614222 100644 --- a/Upgrade/V1.hs +++ b/Upgrade/V1.hs @@ -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 |