getPartialNonrangeMatch :: (RepoPatch p, ApplyMonad DefaultIO (ApplyState p), ApplyState p ~ Tree)
                        => Repository p wR wU wT
                        -> [MatchFlag]
                        -> [FileName]
                        -> IO ()
getPartialNonrangeMatch r fs _ =
    withRecordedMatch r (getNonrangeMatchS fs)
getPartialNonrangeMatch :: (RepoPatch p, ApplyMonad DefaultIO (ApplyState p), ApplyState p ~ Tree)
                        => Repository p wR wU wT
                        -> [MatchFlag]
                        -> [FileName]
                        -> IO ()
getPartialNonrangeMatch r fs _ =
    withRecordedMatch r (getNonrangeMatchS fs)
getPartialNonrangeMatch r fs _ =
    withRecordedMatch r (getNonrangeMatchS fs)