[nongnu] elpa/haskell-tng-mode c211672 174/385: indentation for hanging type definition

[ELPA Syncer]

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

    indentation for hanging type definition
---
 haskell-tng-smie.el                   | 1 +
 test/src/indentation.hs.append.indent | 4 ++--
 test/src/indentation.hs.insert.indent | 4 ++--
 test/src/indentation.hs.reindent      | 4 ++--
 4 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/haskell-tng-smie.el b/haskell-tng-smie.el
index fbbf7fb..751d5fc 100644
--- a/haskell-tng-smie.el
+++ b/haskell-tng-smie.el
@@ -238,6 +238,7 @@ information, to aid in the creation of new rules."
                               "\\case" ;; LambdaCase
                               "where" "let" "do" "of"))))
         2)
+       ("::" 5)
        ("," (smie-rule-separator method))
        ((or "SYMID")
         (if (smie-rule-hanging-p) 2 (smie-rule-parent)))
diff --git a/test/src/indentation.hs.append.indent 
b/test/src/indentation.hs.append.indent
index 9bcf547..4218a47 100644
--- a/test/src/indentation.hs.append.indent
+++ b/test/src/indentation.hs.append.indent
@@ -251,7 +251,7 @@ v
 
 v
 types2 ::
-v
+1    v
      a
 v    1
   -> b
@@ -261,7 +261,7 @@ v 1  2
 
 v 1  2
 types3 ::
-v
+1    v
      Monad m
 v    1
   => a
diff --git a/test/src/indentation.hs.insert.indent 
b/test/src/indentation.hs.insert.indent
index c9deb1b..34dc432 100644
--- a/test/src/indentation.hs.insert.indent
+++ b/test/src/indentation.hs.insert.indent
@@ -251,7 +251,7 @@ v
 
 v
 types2 ::
-v    1
+1    v
      a
 2 1  v
   -> b
@@ -261,7 +261,7 @@ v 1  2
 
 v 1  2
 types3 ::
-v    1
+1    v
      Monad m
 3 1  2     v
   => a
diff --git a/test/src/indentation.hs.reindent b/test/src/indentation.hs.reindent
index 24f513e..68d3d4b 100644
--- a/test/src/indentation.hs.reindent
+++ b/test/src/indentation.hs.reindent
@@ -252,7 +252,7 @@ v
 
 v    1
 types2 ::
-v 1
+2 1  v
      a
 v 1  2
   -> b
@@ -262,7 +262,7 @@ v 1  2
 
 v 2  1
 types3 ::
-v 1
+2 1  v
      Monad m
 2 1  v
   => a