remove debugging

This commit is contained in:
Joey Hess 2011-03-16 16:07:28 -04:00
parent 49da5d1a7b
commit 8ad3fd2657

View file

@ -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