From 690d1fd26c33441332c5886c35366ff5b127a0ad Mon Sep 17 00:00:00 2001
From: Dillon Kearns <dillon@incrementalelm.com>
Date: Thu, 23 Jun 2022 10:10:28 -0700
Subject: [PATCH] Add a string compare implementation just in case.

---
 src/Form/Value.elm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Form/Value.elm b/src/Form/Value.elm
index a11116e1..ac4b4892 100644
--- a/src/Form/Value.elm
+++ b/src/Form/Value.elm
@@ -80,8 +80,9 @@ compare a (Value kind rawValue) =
                     LT
 
         StringValue ->
-            -- TODO
-            LT
+            -- the phantom types in the Field API don't ever run this, so it won't be called there
+            -- Just in case anyone calls it, it delegates to Basics.compare
+            Basics.compare a rawValue
 
         DateValue ->
             Result.map2 Date.compare