From 93c8ad75a6ef02141f7a8eaf2cc7a444daca481d Mon Sep 17 00:00:00 2001
From: Dangercoder <jarvinenemil@hotmail.com>
Date: Fri, 2 Jun 2023 20:24:52 +0200
Subject: [PATCH] Added honey.sql/upper-case for clojure-clr

---
 src/honey/sql.cljc | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/honey/sql.cljc b/src/honey/sql.cljc
index 6e71ab8..4642810 100644
--- a/src/honey/sql.cljc
+++ b/src/honey/sql.cljc
@@ -173,8 +173,12 @@
      "Upper-case a string in Locale/US to avoid locale-specific capitalization."
      [^String s]
      (.. s toString (toUpperCase (java.util.Locale/US))))
+   :cljr
+   (defn upper-case
+     "Upper-case a string in Locale/US to avoid locale-specific capitalization."
+     [^String s]
+     (.ToUpper s (System.Globalization.CultureInfo. "en-Us")))
    ;; TODO - not sure if there's a JavaScript equivalent here we should be using as well
-   ;; TODO - not sure if there's a .NET equivalent here we should be using as well
    :default
    (defn upper-case
      "In ClojureScript, just an alias for cljs.string/upper-case."