intersectingPaths :: [FilePath] -> [FilePath] -> [FilePath]
intersectingPaths paths paths' =
    map joinPath $ intersect
        (map normalizeAndSplit paths)
        (map normalizeAndSplit paths')
intersectingPaths :: [FilePath] -> [FilePath] -> [FilePath]
intersectingPaths paths paths' =
    map joinPath $ intersect
        (map normalizeAndSplit paths)
        (map normalizeAndSplit paths')
intersectingPaths paths paths' =
    map joinPath $ intersect
        (map normalizeAndSplit paths)
        (map normalizeAndSplit paths')