diff --git a/src/util/heroku-utils.lisp b/src/util/heroku-utils.lisp index 9ae30de..91d404e 100644 --- a/src/util/heroku-utils.lisp +++ b/src/util/heroku-utils.lisp @@ -18,8 +18,7 @@ (let* ((url (second (cl-ppcre:split "//" *database-url*))) (user (first (cl-ppcre:split ":" (first (cl-ppcre:split "@" url))))) (password (second (cl-ppcre:split ":" (first (cl-ppcre:split "@" url))))) - (host (first (cl-ppcre:split "/" (second (cl-ppcre:split "@" url))))) + (host (first (cl-ppcre:split ":" (second (cl-ppcre:split "@" url))))) (database (second (cl-ppcre:split "/" (second (cl-ppcre:split "@" url)))))) (list database user password host)) *local-db-params*)) - \ No newline at end of file