showDep :: Dep QPN -> String
showDep (Dep is_exe qpn (Fixed i v)            ) =
  (if P qpn /= v then showVar v ++ " => " else "") ++
  showQPN qpn ++
  (if is_exe then " (exe) " else "") ++ "==" ++ showI i
showDep :: Dep QPN -> String
showDep (Dep is_exe qpn (Fixed i v)            ) =
  (if P qpn /= v then showVar v ++ " => " else "") ++
  showQPN qpn ++
  (if is_exe then " (exe) " else "") ++ "==" ++ showI i
showDep (Dep is_exe qpn (Fixed i v)            ) =
  (if P qpn /= v then showVar v ++ " => " else "") ++
  showQPN qpn ++
  (if is_exe then " (exe) " else "") ++ "==" ++ showI i