                           ctx))
                       [false (fh/form-problem problems)])))
 
-  :handle-unprocessable-entity (fn [ctx]
-                                 (log/info "unprocessable")
+  :handle-unprocessable-entity (fn [ctx] 
                                  (lr/ring-response (fh/flash-form-problem
                                                     (r/redirect (routes/absolute-path :sign-in))
                                                     ctx)))
   :post! (fn [ctx]
-           (log/info "post!")
            (let [data (-> ctx :request :params)
                  email (get data :email)]
              ;; TODO add actions if db or email failed

                 name (first (s/split email #"@"))]
             (if-let [wallet (wallet/fetch wallet-store email)]
               (do
                 (log/info "The wallet for email " email " already exists")
                 {::email (:email wallet)})
               
               ;; a new wallet has to be made

  :allowed-methods [:get]
  :available-media-types ["text/html"]
  :handle-ok (fn [ctx]
               (-> ctx
                   (email-confirmation/build)
                   fv/render-page)))
