Strip out extraneous prompts

jwiegley · Apr 6, 2014 · b5ca602 · b5ca602
1 parent 58810a1
commit b5ca602
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/haskell-process.el b/haskell-process.el
@@ -1068,10 +1068,11 @@ If I break, you can:
     (when session
       (if (haskell-process-cmd (haskell-session-process session))
           (haskell-process-collect session
-                                 response
-                                 (haskell-session-process session))
-        (haskell-interactive-mode-insert-garbage session
-                                                 response)))))
+                                   response
+                                   (haskell-session-process session))
+        (haskell-interactive-mode-insert-garbage
+         session
+         (replace-regexp-in-string "\4" "" response))))))
 
 (defun haskell-process-log (msg)
   "Write MSG to the process log (if enabled)."