From b086d12760bdd43a8401f410c4c19ceebee00539 Mon Sep 17 00:00:00 2001 From: Andrey Antukh <niwi@niwi.nz> Date: Mon, 21 Nov 2016 18:14:10 +0100 Subject: [PATCH] Add `rsp?` predicate. --- backend/src/uxbox/util/response.clj | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/backend/src/uxbox/util/response.clj b/backend/src/uxbox/util/response.clj index c1bc2a097..4ecf79dae 100644 --- a/backend/src/uxbox/util/response.clj +++ b/backend/src/uxbox/util/response.clj @@ -67,3 +67,7 @@ "A shortcut for create a response instance." [data] (Rsp. data)) + +(defn rsp? + [v] + (instance? Rsp v))