\usepackage[english]{babel}
\makeatletter
\useshorthands{"}
\defineshorthand{"-}{\nobreak-\bbl@allowhyphens}
\makeatother