branch: elpa/haskell-tng-mode
commit eb6b48767073b65910fda8aa85a2602ddf569da0
Author: Tseen She <ts33n....@gmail.com>
Commit: Tseen She <ts33n....@gmail.com>
test fqn-at-point and fix a longstanding bug
---
haskell-tng-hsinspect.el | 4 ++--
test/src/hsinspect.hs | 3 ++-
test/src/hsinspect.hs.dynamic | 3 ++-
3 files changed, 6 insertions(+), 4 deletions(-)
diff --git a/haskell-tng-hsinspect.el b/haskell-tng-hsinspect.el
index 4120a35..2c86a11 100644
--- a/haskell-tng-hsinspect.el
+++ b/haskell-tng-hsinspect.el
@@ -46,8 +46,8 @@ A prefix argument ensures that caches are flushes."
sym)))
;; TODO multiple hits
;; TODO add type information from the index when available
- (haskell-tng--hsinspect-popup-tip (format "%s" found)))
- (user-error "Not found"))
+ (haskell-tng--hsinspect-popup-tip (format "%s" found))
+ (user-error "Not found")))
;;;###autoload
(defun haskell-tng-jump-to-definition (&optional alt)
diff --git a/test/src/hsinspect.hs b/test/src/hsinspect.hs
index f722aa2..4f0b083 100644
--- a/test/src/hsinspect.hs
+++ b/test/src/hsinspect.hs
@@ -9,9 +9,10 @@ module Medley.Wibble where
import Data.Functor.Contravariant as C
import Medley.Wobble
--- FIXME (progn (next-line) (move-to-column 18) (let ((fqn
(haskell-tng-fqn-at-point))) (next-line) (insert (concat "-- " fqn))))
+-- RUN (progn (next-line) (move-to-column 18) (let ((fqn
(haskell-tng-fqn-at-point))) (next-line) (insert "-- " fqn)))
import Prelude (zip)
+
-- RUN (progn (next-line) (company-complete))
foo = C.pha
diff --git a/test/src/hsinspect.hs.dynamic b/test/src/hsinspect.hs.dynamic
index 1e14db1..3ca858b 100644
--- a/test/src/hsinspect.hs.dynamic
+++ b/test/src/hsinspect.hs.dynamic
@@ -12,8 +12,9 @@ import qualified Data.List as L
import Data.List (nubBy)
import Data.Functor.Contravariant as C
import Medley.Wobble
--- FIXME (progn (next-line) (move-to-column 18) (let ((fqn
(haskell-tng-fqn-at-point))) (next-line) (insert (concat "-- " fqn))))
+-- RUN (progn (next-line) (move-to-column 18) (let ((fqn
(haskell-tng-fqn-at-point))) (next-line) (insert "-- " fqn)))
import Prelude (zip)
+-- Prelude.zip
-- RUN (progn (next-line) (company-complete))
foo = C.phantom
