parseSubmitPriority str      = fail $ "Unknown priority '" ++ str ++ "'"
parseSubmitPriority str      = fail $ "Unknown priority '" ++ str ++ "'"
parseSubmitPriority str      = fail $ "Unknown priority '" ++ str ++ "'"