Check query in client

2025-06-23 02:48:26 +00:00 · 2021-03-07 23:46:31 +01:00
parent 31e2e99c36
commit c6032ff279
9 changed files with 267 additions and 24 deletions
--- a/modules/webapp/src/main/elm/Data/ItemQuery.elm
+++ b/modules/webapp/src/main/elm/Data/ItemQuery.elm
@ -106,8 +106,8 @@ render q =
                    "="

        quoteStr =
-            --TODO escape quotes
-            surround "\""
+            String.replace "\"" "\\\""
+                >> surround "\""
    in
    case q of
        And inner ->
--- a/modules/webapp/src/main/elm/Data/QueryParseResult.elm
+++ b/modules/webapp/src/main/elm/Data/QueryParseResult.elm
@ -0,0 +1,14 @@
+module Data.QueryParseResult exposing (QueryParseResult, success)
+
+
+type alias QueryParseResult =
+    { success : Bool
+    , input : String
+    , index : Int
+    , messages : List String
+    }
+
+
+success : QueryParseResult
+success =
+    QueryParseResult True "" 0 []