Fix getLine with no stdout output

jwiegley · May 26, 2014 · 69ead72 · 69ead72
1 parent c2206c9
commit 69ead72
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/haskell-interactive-mode.el b/haskell-interactive-mode.el
@@ -219,7 +219,6 @@ Key bindings:
       haskell-interactive-mode-prompt-start
     nil))
 
-
 (defun haskell-interactive-handle-expr ()
   "Handle an inputted expression at the REPL."
   (when (haskell-interactive-at-prompt)
@@ -258,13 +257,15 @@ Key bindings:
   (let ((session (haskell-session))
         (process (haskell-process))
         (lines (length (split-string expr "\n"))))
-    (goto-char (point-max))
     (haskell-process-queue-command
      process
      (make-haskell-command
       :state (list session process expr 0)
       :go (lambda (state)
+            (goto-char (point-max))
             (insert "\n")
+            (setq haskell-interactive-mode-result-end
+                  (point-max))
             (haskell-process-send-string (cadr state)
                                          (haskell-interactive-mode-multi-line (caddr state)))
             (haskell-process-set-evaluating (cadr state) t))