onInputPatPaths f (InputPattern x) = InputPattern <$> onFilePatternPaths f x
onInputPatPaths f (InputPattern x) = InputPattern <$> onFilePatternPaths f x
onInputPatPaths f (InputPattern x) = InputPattern <$> onFilePatternPaths f x