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
|
present d = do
|
||||||
result <- try $
|
result <- try $
|
||||||
getFileStatus $ d </> takeFileName d
|
getFileStatus $ d </> takeFileName d
|
||||||
liftIO $ putStrLn $ "trying " ++ (d </> takeFileName d)
|
|
||||||
case result of
|
case result of
|
||||||
Right s -> return $ isRegularFile s
|
Right s -> return $ isRegularFile s
|
||||||
Left _ -> return False
|
Left _ -> return False
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue