Merge pull request #146 from rneatherway/fix-error-msg-parsing

Understand FSAC 0.34 error msgs

Author: rneatherway

fsharp-mode-completion.el

@@ -816,7 +816,7 @@ has requested a popup tooltip, display a popup."
                (gethash "Logs" data)))))
 
 (defun fsharp-ac-handle-process-error (str)
-  (fsharp-ac-message-safely str)
+  (fsharp-ac-message-safely (gethash "Message" str))
   (when (not (eq fsharp-ac-status 'idle))
     (setq fsharp-ac-status 'idle
           fsharp-ac-current-candidate nil)))

test/fsharp-mode-completion-tests.el

@@ -144,7 +144,7 @@ function bound to VAR in BODY. "
 
 (check-handler "prints message on error"
   (stub-fn message err
-    (fsharp-ac-filter-output nil "{\"Kind\": \"error\", \"Data\": \"foo\"}\n")
+    (fsharp-ac-filter-output nil "{\"Kind\": \"error\", \"Data\": {\"Code\":1,\"Message\":\"foo\",\"AdditionalData\":{}}}\n")
     (should-match "foo" err)))
 
 ;;; Tooltips and typesigs