Fix bad definition serialization

Author: chenglou

src/Protocol.ml

@@ -36,7 +36,7 @@ let stringifyPosition p =
    Printf.sprintf {|{"line": "%i", "character": "%i"}|} p.line p.character
 
 let stringifyRange r =
-   Printf.sprintf {|{"start": "%s", "end": "%s"}|}
+   Printf.sprintf {|{"start": %s, "end": %s}|}
     (stringifyPosition r.start)
     (stringifyPosition r.end_)
 
@@ -63,7 +63,7 @@ let stringifyHover h =
   (String.escaped h.contents)
 
 let stringifyLocation h =
-  Printf.sprintf {|{"uri": "%s", "range": "%s"}|}
+  Printf.sprintf {|{"uri": "%s", "range": %s}|}
   (String.escaped h.uri)
   (stringifyRange h.range)
 

tests/src/expected/Definition.res.txt

@@ -1,8 +1,8 @@
 Definition tests/src/Definition.res 2:8
-{"uri": "Definition.res", "range": "{"start": "{"line": "0", "character": "4"}", "end": "{"line": "0", "character": "6"}"}"}
+{"uri": "Definition.res", "range": {"start": {"line": "0", "character": "4"}, "end": {"line": "0", "character": "6"}}}
 
 Definition tests/src/Definition.res 10:23
-{"uri": "Definition.res", "range": "{"start": "{"line": "6", "character": "7"}", "end": "{"line": "6", "character": "13"}"}"}
+{"uri": "Definition.res", "range": {"start": {"line": "6", "character": "7"}, "end": {"line": "6", "character": "13"}}}
 
 Hover tests/src/Definition.res 14:14
 {"contents": "```rescript\n('a => 'b, list<'a>) => list<'b>\n```\n\n`List.map f [a1; ...; an]` applies function `f` to `a1, ..., an`, and builds the list `[f a1; ...; f an]` with the results returned by `f`. Not tail-recursive.\n\n"}

tests/src/expected/Jsx.res.txt

@@ -1,5 +1,5 @@
 Definition tests/src/Jsx.res 5:9
-{"uri": "Jsx.res", "range": "{"start": "{"line": "2", "character": "6"}", "end": "{"line": "2", "character": "10"}"}"}
+{"uri": "Jsx.res", "range": {"start": {"line": "2", "character": "6"}, "end": {"line": "2", "character": "10"}}}
 
 Complete tests/src/Jsx.res 7:2
 []