From 3918246b24a47d7fa4456a9641b52e7af2204f01 Mon Sep 17 00:00:00 2001
From: Rok Garbas <rok@garbas.si>
Date: Mon, 11 May 2020 12:52:07 +0200
Subject: [PATCH] switching to wildcard query (#10)

fixes #6
---
 src/ElasticSearch.elm | 36 +++++++++++++++++++++++++++++++-----
 1 file changed, 31 insertions(+), 5 deletions(-)

diff --git a/src/ElasticSearch.elm b/src/ElasticSearch.elm
index 0022de0..f8090f8 100644
--- a/src/ElasticSearch.elm
+++ b/src/ElasticSearch.elm
@@ -244,12 +244,38 @@ makeRequestBody field query =
         objectIn name object =
             [ ( name, Json.Encode.object object ) ]
     in
-    -- I'm not sure we need fuziness
-    --, ( "fuzziness", Json.Encode.int 1 )
-    query
-        |> stringIn "query"
+    -- Prefix Query
+    -- {
+    --     "query": {
+    --         "prefix": {
+    --             "user": {
+    --                 "value": ""
+    --             }
+    --         }
+    --     }
+    -- }
+    --query
+    --    |> stringIn "value"
+    --    |> objectIn field
+    --    |> objectIn "prefix"
+    --    |> objectIn "query"
+    --    |> Json.Encode.object
+    --    |> Http.jsonBody
+    --
+    -- Wildcard Query
+    -- {
+    --     "query": {
+    --         "wildcard": {
+    --             "<field>": {
+    --                 "value": "*<value>*",
+    --             }
+    --         }
+    --     }
+    -- }
+    ("*" ++ query ++ "*")
+        |> stringIn "value"
         |> objectIn field
-        |> objectIn "match"
+        |> objectIn "wildcard"
         |> objectIn "query"
         |> Json.Encode.object
         |> Http.jsonBody