versionTest :: VersionTest -> Version -> Bool
versionTest rt = case rt of
    VersionAll -> const True
    (VersionOnly v) -> (v ==)
    (VersionUpto v) -> (v >)
    (VersionThru v) -> (v >=)



--
-- Find Arrow: Finding things in the file system
--

-- | A Find takes an annotated FilePath to a list of annotated FilePaths
-- The annotations in and out can differ.
versionTest :: VersionTest -> Version -> Bool
versionTest rt = case rt of
    VersionAll -> const True
    (VersionOnly v) -> (v ==)
    (VersionUpto v) -> (v >)
    (VersionThru v) -> (v >=)



--
-- Find Arrow: Finding things in the file system
--

-- | A Find takes an annotated FilePath to a list of annotated FilePaths
-- The annotations in and out can differ.
versionTest rt = case rt of
    VersionAll -> const True
    (VersionOnly v) -> (v ==)
    (VersionUpto v) -> (v >)
    (VersionThru v) -> (v >=)



--
-- Find Arrow: Finding things in the file system
--

-- | A Find takes an annotated FilePath to a list of annotated FilePaths
-- The annotations in and out can differ.