Support next/previous properly

jwiegley · Mar 23, 2014 · c621a21 · c621a21
1 parent 0963af4
commit c621a21
Showing 1 changed file with 10 additions and 7 deletions.
diff --git a/haskell-debug.el b/haskell-debug.el
@@ -482,8 +482,11 @@ some old history, then display that."
   (let ((string (haskell-process-queue-sync-request
                  (haskell-process)
                  (concat ":" direction))))
-    (set (make-local-variable 'haskell-debug-logged-cache)
-         (haskell-debug-parse-logged string))
+    (let ((bindings (haskell-debug-parse-logged string)))
+      (set (make-local-variable 'haskell-debug-bindings-cache)
+           bindings)
+      (when (not bindings)
+        (message "No more %s results!" direction)))
     (haskell-debug/refresh)))
 
 (defun haskell-debug-parse-logged (string)
@@ -505,11 +508,11 @@ some old history, then display that."
                    (buffer-substring-no-properties
                     (point)
                     (line-end-position)))
-            :bindings (progn (forward-line)
-                             (split-string (buffer-substring-no-properties
-                                            (point)
-                                            (point-max))
-                                           "\n")))))))
+            :types (progn (forward-line)
+                          (split-string (buffer-substring-no-properties
+                                         (point)
+                                         (point-max))
+                                        "\n")))))))
 
 (defun haskell-debug-get-history ()
   "Get the step history."