diff options
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 |