Permalink
Browse files

minor adjustments

  • Loading branch information...
tonymorris committed Mar 17, 2012
1 parent 673f086 commit 7498907b563eeda22dd9ae3e7ff8735731871b0a
@@ -10,7 +10,7 @@ data FileType =
File -- ^ The type is a normal file.
| Directory -- ^ The type is a directory.
| Unknown -- ^ The type is unknown.
- deriving (Eq, Show, Enum)
+ deriving (Eq, Ord, Show, Enum)
isFile ::
FileType
@@ -12,7 +12,7 @@ module System.FilePath.FilePather.RecursePredicate
import Control.Monad.Identity
import System.FilePath.FilePather.FilterPredicate
--- | A recurse predicate takes a 'FilePath' and returns whether or not to continue recursing on that file.
+-- | A recurse predicate takes a 'FilePath', which is a directory, and returns whether or not to continue recursing down on that directory.
newtype RecursePredicateT f =
RecursePredicateT (FilePath -> f Bool)

0 comments on commit 7498907

Please sign in to comment.