showFR _ (Conflicting ds)                 =
  let showDep' = showDep $ \(PI qpn _) -> showQPN qpn
  in " (conflict: " ++ L.intercalate ", " (L.map showDep' ds) ++ ")"
showFR _ (Conflicting ds)                 =
  let showDep' = showDep $ \(PI qpn _) -> showQPN qpn
  in " (conflict: " ++ L.intercalate ", " (L.map showDep' ds) ++ ")"
showFR _ (Conflicting ds)                 =
  let showDep' = showDep $ \(PI qpn _) -> showQPN qpn
  in " (conflict: " ++ L.intercalate ", " (L.map showDep' ds) ++ ")"