[nongnu] elpa/haskell-tng-mode 3194e62 074/385: stefan to the rescue

[ELPA Syncer]

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

    stefan to the rescue
---
 haskell-tng-smie.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/haskell-tng-smie.el b/haskell-tng-smie.el
index 87ba057..56c329a 100644
--- a/haskell-tng-smie.el
+++ b/haskell-tng-smie.el
@@ -84,10 +84,9 @@
        (lexp)
        )
 
-      ;; TODO to support terminators as separators
+      ;; TODO should we support terminators as separators?
       ;;(insts (insts ";" insts) (inst))
 
-      ;; ;; FIXME these seem to break everything
       (lexp
        ("if" exp "then" exp "else" exp)
        ;; TODO apats
@@ -122,9 +121,10 @@
     ;; operator precedences
     ;;'((assoc ";"))
     ;;'((assoc ","))
-    ;; TODO arrange by fixity
-    '((assoc "$"))
-    '((assoc "+") (assoc "-"))
+    '((assoc "else" "::") ;; TODO keywords here
+      (assoc "$")
+      ;; TODO arrange by fixity
+      (assoc "+" "-"))
     ;; '((assoc "*"))
     ;; '((assoc "/"))
     ;; '((assoc "<$>"))
@@ -132,6 +132,9 @@
     ;; '((assoc ">>="))
     ;; '((assoc "&"))
 
+;; Read the "<" and ">" as parentheses: when confronted with "... else E $ ..."
+;;SMIE is not sure if you meant "... else E) $ ..." or "... else (E $ ...".
+
     )))
 
 ;; TODO indentation rules