Permalink
Browse files

(inferior-haskell-type, inferior-haskell-info):

Ignore-this: b4eaedfaff9e306718029eb53734854f
(inferior-haskell-type, inferior-haskell-info):
Move after calling inferior-haskell-wait-for-prompt.
Reported by Thaju <ou2thaju@gmail.com> and Jose A. Ortega Ruiz <jao@gnu.org>.

darcs-hash:20090202220538-c2f2e-5f82a130432f42910531df24233017f940f714ea.gz
  • Loading branch information...
1 parent 0798746 commit d549980ca5072424fab0228715187d6523cae07f monnier committed Feb 2, 2009
Showing with 10 additions and 3 deletions.
  1. +7 −0 ChangeLog
  2. +3 −3 inf-haskell.el
View
@@ -1,3 +1,10 @@
+2009-02-02 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * inf-haskell.el (inferior-haskell-type, inferior-haskell-info):
+ Move after calling inferior-haskell-wait-for-prompt.
+ Reported by Thaju <ou2thaju@gmail.com> and
+ Jose A. Ortega Ruiz <jao@gnu.org>.
+
2009-02-02 Juanma Barranquero <lekktu@gmail.com>
* haskell-doc.el (haskell-doc-imported-list): Don't add current buffer
View
@@ -1,6 +1,6 @@
;;; inf-haskell.el --- Interaction with an inferior Haskell process.
-;; Copyright (C) 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
;; Keywords: Haskell
@@ -413,8 +413,8 @@ The returned info is cached for reuse by `haskell-doc-mode'."
(marker-position (process-mark proc))))
(inferior-haskell-send-command proc (concat ":type " expr))
;; Find new point.
- (goto-char (point-max))
(inferior-haskell-wait-for-prompt proc)
+ (goto-char (point-max))
;; Back up to the previous end-of-line.
(end-of-line 0)
;; Extract the type output
@@ -459,8 +459,8 @@ The returned info is cached for reuse by `haskell-doc-mode'."
(marker-position (process-mark proc))))
(inferior-haskell-send-command proc (concat ":info " sym))
;; Find new point.
- (goto-char (point-max))
(inferior-haskell-wait-for-prompt proc)
+ (goto-char (point-max))
;; Move to previous end-of-line
(end-of-line 0)
(let ((result

0 comments on commit d549980

Please sign in to comment.