[nongnu] elpa/haskell-tng-mode eb6b487 357/385: test fqn-at-point and fix a longstanding bug

[ELPA Syncer]

branch: elpa/haskell-tng-mode
commit eb6b48767073b65910fda8aa85a2602ddf569da0
Author: Tseen She <ts33n.sh3@gmail.com>
Commit: Tseen She <ts33n.sh3@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