toolWarningText (ToolWarning (ExeName toolName) pkgName (Just (option1, option2, options))) =
    "Multiple packages found in snapshot which provide a " <>
    T.pack (show toolName) <>
    " exeuctable, which is a build-tool dependency of " <>
    T.pack (show (packageNameString pkgName)) <>
    ", so none will be installed.\n" <>
    "Here's the list of packages which provide it: " <>
    T.intercalate ", " (map packageNameText (option1:option2:options)) <>
    "\nSince there's no good way to choose, you may need to install it manually."
toolWarningText (ToolWarning (ExeName toolName) pkgName (Just (option1, option2, options))) =
    "Multiple packages found in snapshot which provide a " <>
    T.pack (show toolName) <>
    " exeuctable, which is a build-tool dependency of " <>
    T.pack (show (packageNameString pkgName)) <>
    ", so none will be installed.\n" <>
    "Here's the list of packages which provide it: " <>
    T.intercalate ", " (map packageNameText (option1:option2:options)) <>
    "\nSince there's no good way to choose, you may need to install it manually."
toolWarningText (ToolWarning (ExeName toolName) pkgName (Just (option1, option2, options))) =
    "Multiple packages found in snapshot which provide a " <>
    T.pack (show toolName) <>
    " exeuctable, which is a build-tool dependency of " <>
    T.pack (show (packageNameString pkgName)) <>
    ", so none will be installed.\n" <>
    "Here's the list of packages which provide it: " <>
    T.intercalate ", " (map packageNameText (option1:option2:options)) <>
    "\nSince there's no good way to choose, you may need to install it manually."