ch09: SimpleFinder.hs

tianyicui · Nov 28, 2010 · 5ccdb0a · 5ccdb0a
1 parent 8c4be3d
commit 5ccdb0a
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/ch09/SimpleFinder.hs b/ch09/SimpleFinder.hs
@@ -0,0 +1,6 @@
+import RecursiveContents (getRecursiveContents)
+
+simpleFinder :: (FilePath -> Bool) -> FilePath -> IO [FilePath]
+simpleFinder p path = do
+    names <- getRecursiveContents path
+    return (filter p names)