remove debugging
This commit is contained in:
parent
49da5d1a7b
commit
8ad3fd2657
1 changed files with 0 additions and 1 deletions
|
@ -171,7 +171,6 @@ getKeysPresent' dir = do
|
|||
present d = do
|
||||
result <- try $
|
||||
getFileStatus $ d </> takeFileName d
|
||||
liftIO $ putStrLn $ "trying " ++ (d </> takeFileName d)
|
||||
case result of
|
||||
Right s -> return $ isRegularFile s
|
||||
Left _ -> return False
|
||||
|
|
Loading…
Reference in a new issue