fromPair :: (FilePath, Matches) -> [(FilePath, Filter)]
fromPair (fp, ms) = map (\ (target, pat) -> (init target, [(pat, fp)]))
                  $ N.toList ms
fromPair :: (FilePath, Matches) -> [(FilePath, Filter)]
fromPair (fp, ms) = map (\ (target, pat) -> (init target, [(pat, fp)]))
                  $ N.toList ms
fromPair (fp, ms) = map (\ (target, pat) -> (init target, [(pat, fp)]))
                  $ N.toList ms