diff --git a/haskell-process.el b/haskell-process.el index a816a8bcc..ced9b0d79 100644 --- a/haskell-process.el +++ b/haskell-process.el @@ -306,10 +306,11 @@ Returns NIL when no completions found." (h0 (car s1))) ;; " " (unless (string-match "\\`\\([0-9]+\\) \\([0-9]+\\) \\(\".*\"\\)\\'" h0) (error "Invalid `:complete' response")) - (let ((cnt1 (match-string 1 h0))) + (let ((cnt1 (match-string 1 h0)) + (h1 (haskell-string-literal-decode (match-string 3 h0)))) (unless (= (string-to-number cnt1) (length cs)) (error "Lengths inconsistent in `:complete' reponse")) - cs))))) + (cons h1 cs)))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Accessing the process