findFiles :: FilePath -> [String] -> IO [FilePath]
findFiles path patterns = do
    files <- concat . fst <$> globDir (map compile patterns) path
    return $ map (makeRelative path) files
findFiles :: FilePath -> [String] -> IO [FilePath]
findFiles path patterns = do
    files <- concat . fst <$> globDir (map compile patterns) path
    return $ map (makeRelative path) files
findFiles path patterns = do
    files <- concat . fst <$> globDir (map compile patterns) path
    return $ map (makeRelative path) files