Sort cases

Author: nojaf

analysis/src/CompletionBackEnd.ml

@@ -2235,6 +2235,7 @@ let rec processCompletable ~debug ~full ~scope ~env ~pos ~forHover completable =
       let newText =
         c.name ^ " {\n"
         ^ (cases
+          |> List.sort (String.compare)
           |> List.mapi (fun index caseText ->
                  "| " ^ caseText ^ " => "
                  ^ printFailwithStr (startIndex + index + 1))

tests/analysis_tests/tests/src/expected/ExhaustiveSwitch.res.txt

@@ -40,7 +40,7 @@ Path withSomePol
     "detail": "insert exhaustive switch for value",
     "documentation": null,
     "filterText": "withSomePoly",
-    "insertText": "withSomePoly {\n   | #\"switch\" => ${1:failwith(\"todo\")}\n   | #one => ${2:failwith(\"todo\")}\n   | #three(_) => ${3:failwith(\"todo\")}\n   | #two => ${4:failwith(\"todo\")}\n   | #\"exotic ident\" => ${5:failwith(\"todo\")}\n   }",
+    "insertText": "withSomePoly {\n   | #\"exotic ident\" => ${1:failwith(\"todo\")}\n   | #one => ${2:failwith(\"todo\")}\n   | #\"switch\" => ${3:failwith(\"todo\")}\n   | #three(_) => ${4:failwith(\"todo\")}\n   | #two => ${5:failwith(\"todo\")}\n   }",
     "insertTextFormat": 2
   }]
 

tests/analysis_tests/tests/src/expected/Xform.res.txt

@@ -242,7 +242,7 @@ TextDocumentEdit: Xform.res
 {"start": {"line": 101, "character": 2}, "end": {"line": 101, "character": 3}}
 newText:
   <--here
-  #second | #"illegal identifier" | #third(_)
+  #"illegal identifier" | #second | #third(_)
 
 Xform src/Xform.res 107:4
 posCursor:[105:16] posNoWhite:[105:14] Found expr:[105:9->109:1]