Skip to content

Instantly share code, notes, and snippets.

@theqp
Created November 30, 2020 04:34
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save theqp/08eb2d8780c638b892019b3b5ad23963 to your computer and use it in GitHub Desktop.
Save theqp/08eb2d8780c638b892019b3b5ad23963 to your computer and use it in GitHub Desktop.
betterFind p = getRecursiveContents >=> filterM check
where
check name =
liftA3
(p name)
(getPermissions name)
(getFileSize name)
(getModificationTime name)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment