[nongnu] elpa/haskell-tng-mode f59c9ee 259/385: fix indentation of short type signatures

[ELPA Syncer]

branch: elpa/haskell-tng-mode
commit f59c9eec852c4c7be922365e0f513484740aabfc
Author: Tseen She <ts33n.sh3@gmail.com>
Commit: Tseen She <ts33n.sh3@gmail.com>

    fix indentation of short type signatures
---
 haskell-tng-smie.el                   | 3 ++-
 test/haskell-tng-indent-test.el       | 1 -
 test/src/indentation.hs.append.indent | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/haskell-tng-smie.el b/haskell-tng-smie.el
index 8f85057..ec65586 100644
--- a/haskell-tng-smie.el
+++ b/haskell-tng-smie.el
@@ -272,7 +272,8 @@ information, to aid in the creation of new rules."
             "|")
 
            ((and (member parent '("::" "=>"))
-                 (< (seq-count (lambda (it) (equal it "=>")) prevline) 2)
+                 (or (not (member "=>" prevline))
+                     (equal "=>" (car prevline)))
                  (not (haskell-tng--smie-prev-line-blank-p)))
             "=>")
 
diff --git a/test/haskell-tng-indent-test.el b/test/haskell-tng-indent-test.el
index 6e4fccb..f5f5ac2 100644
--- a/test/haskell-tng-indent-test.el
+++ b/test/haskell-tng-indent-test.el
@@ -12,7 +12,6 @@
 (require 'haskell-tng-testutils
          "test/haskell-tng-testutils.el")
 
-;; FIXME types_short
 ;; TODO line after `instance ... where' has too much indent
 ;; TODO records assigning / copy by label
 ;; TODO records of functions
diff --git a/test/src/indentation.hs.append.indent 
b/test/src/indentation.hs.append.indent
index 88c37c0..b64a416 100644
--- a/test/src/indentation.hs.append.indent
+++ b/test/src/indentation.hs.append.indent
@@ -303,6 +303,6 @@ v         1
 
 v         1
 types_short :: Foo -> Bar
-1 v
+v
 
 v
\ No newline at end of file