response
This commit is contained in:
parent
305b11d7c2
commit
9a4127f0fe
2 changed files with 6 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue