From 31674db11df16dd2a496d0e25817ffca6d4b42eb Mon Sep 17 00:00:00 2001 From: Florian Schroedl Date: Thu, 8 Aug 2024 11:07:24 +0200 Subject: [PATCH] Skip parsing on numbers --- frontend/src/app/main/ui/workspace/tokens/token.cljs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/frontend/src/app/main/ui/workspace/tokens/token.cljs b/frontend/src/app/main/ui/workspace/tokens/token.cljs index 8d967151b3..a641295379 100644 --- a/frontend/src/app/main/ui/workspace/tokens/token.cljs +++ b/frontend/src/app/main/ui/workspace/tokens/token.cljs @@ -8,10 +8,11 @@ #"^\s*(-?[0-9]+\.?[0-9]*)\s*$") (defn parse-token-value [value] - (when (string? value) - (when-let [double-str (-> (re-find parseable-token-value-regexp value) - (last))] - (d/parse-double double-str)))) + (cond + (number? value) value + (string? value) (when-let [double-str (-> (re-find parseable-token-value-regexp value) + (last))] + (d/parse-double double-str)))) (defn find-token-references "Finds token reference values in `value-string` and returns a set with all contained namespaces."