exists :: Find a a
exists = fileTest $ \fp -> do
    dde <- doesDirectoryExist fp
    dfe <- doesFileExist fp
    return $ dde || dfe
exists :: Find a a
exists = fileTest $ \fp -> do
    dde <- doesDirectoryExist fp
    dfe <- doesFileExist fp
    return $ dde || dfe
exists = fileTest $ \fp -> do
    dde <- doesDirectoryExist fp
    dfe <- doesFileExist fp
    return $ dde || dfe