Skip to content
Snippets Groups Projects
Commit 06db50a4 authored by Allen Gilliland's avatar Allen Gilliland
Browse files

lint fixes

parent f930dee4
Branches
Tags
No related merge requests found
......@@ -90,11 +90,11 @@
(defn send-follow-up-email
"Format and Send an email to the system admin following up on the installation."
[email type]
[email msg-type]
{:pre [(string? email)
(u/is-email? email)
(contains? #{"active" "inactive"} type)]}
(let [subject (if (= "inactive" type)
(contains? #{"active" "inactive"} msg-type)]}
(let [subject (if (= "inactive" msg-type)
"[Metabase] Where have you been?"
"[Metabase] What else can we do for you?")
data-quote (quotation/random-quote)
......@@ -102,7 +102,7 @@
:logoHeader true
:quotation (:quote data-quote)
:quotationAuthor (:author data-quote)}
(if (= "inactive" type)
(if (= "inactive" msg-type)
{:callToAction "We haven’t seen you much! Would you mind taking a minute to tell us what we could do better?"
:buttonText "Button"
:link "http://www.metabase.com/feedback/this-thing-sucks"}
......
......@@ -89,4 +89,3 @@
(log/error "Problem sending follow-up email" t))
(finally
(setting/set :follow-up-email-sent "true"))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment