integration-tests
Josha von Gizycki 6 years ago
parent e91efbe2c2
commit fa20f83aa9

@ -1,5 +1,6 @@
(ns wanijo.framework.devmode (ns wanijo.framework.devmode
(:require [hiccup.core :as hcore])) (:require [hiccup.core :as hcore]
[clojure.string :as cljs]))
(def bar-entries (atom [])) (def bar-entries (atom []))
@ -22,7 +23,7 @@
(defn append-devbar [resp] (defn append-devbar [resp]
(let [body (:body resp) (let [body (:body resp)
new-body (clojure.string/replace new-body (cljs/replace
body "</body>" (str (devbar resp) "</body>"))] body "</body>" (str (devbar resp) "</body>"))]
(assoc resp :body new-body))) (assoc resp :body new-body)))

Loading…
Cancel
Save