minusFileName dir suffix =
  minusFileName (fst (splitFileName dir)) (fst (splitFileName suffix))
minusFileName dir suffix =
  minusFileName (fst (splitFileName dir)) (fst (splitFileName suffix))
minusFileName dir suffix =
  minusFileName (fst (splitFileName dir)) (fst (splitFileName suffix))