[nongnu] elpa/haskell-tng-mode e2c60a9 161/385: prep for records

[ELPA Syncer]

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

    prep for records
---
 haskell-tng-smie.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/haskell-tng-smie.el b/haskell-tng-smie.el
index e1f3ccd..c7d4407 100644
--- a/haskell-tng-smie.el
+++ b/haskell-tng-smie.el
@@ -214,6 +214,10 @@ information, to aid in the creation of new rules."
        ("\\case" 2) ;; LambdaCase
        ("where" (if (smie-rule-parent-p "module") 0 2))
        ((or "[" "(") 2)
+       ("{" (when (not (smie-rule-prev-p
+                        "\\case" ;; LambdaCase
+                        "where" "let" "do" "of"))
+              2))
        ("," (smie-rule-separator method))
        ((or "$" "SYMID")
         (if (smie-rule-hanging-p) 2 (smie-rule-parent)))
@@ -231,8 +235,7 @@ information, to aid in the creation of new rules."
        ;;
        ;; blah = bloo where
        ;;               bloo = blu
-       ((or "{" "where" "let" "do" "case" "->" "$" "SYMID")
-        ;; TODO { here should only be for WLDOs
+       ((or "where" "let" "do" "case" "->" "$" "SYMID")
         (smie-rule-parent))
        ("\\case" ;; LambdaCase
         (smie-rule-parent))
@@ -240,7 +243,7 @@ information, to aid in the creation of new rules."
         (if (smie-rule-parent-p "=")
             (smie-rule-parent-column)
           (smie-rule-separator method)))
-       ((or "[" "(")
+       ((or "[" "(" "{")
         (when (smie-rule-hanging-p)
           (smie-rule-parent)))
        ("," (smie-rule-separator method))