diff --git a/Content.hs b/Content.hs index a59484b5ab..4bd8265c2d 100644 --- a/Content.hs +++ b/Content.hs @@ -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