Ignoring prompt with sql-mysql in emacs

gistfile1.el

;; add our own mysql product
(eval-after-load "sql"
  '(add-to-list 'sql-product-alist
                '(mysql-noprompt
                  :name "MySQL"
                  :font-lock sql-mode-mysql-font-lock-keywords
                  :sqli-login nil
                  :sqli-program sql-mysql-program
                  :sqli-options sql-mysql-options
                  :sqli-comint-func sql-comint-mysql
                  :sqli-connect sql-connect-mysql
                  :sqli-prompt-regexp "^mysql> "
                  :sqli-prompt-length 6)))

;; connecting to a database
(let ((sql-user     "user")
      (sql-password "password")
      (sql-database "database")
      (sql-server   "localhost"))
  (sql-product-interactive 'mysql-noprompt)) ;; our custom product