@@ -606,7 +606,7 @@ the current buffer."
606
606
; ; tokens in type declarations
607
607
(defconst haskell-indentation-type-list
608
608
'((" ::" . (lambda () (haskell-indentation-with-starter
609
- (lambda () (haskell-indentation-separated #'haskell-indentation-type '( " ->" " => " ) )))))
609
+ (lambda () (haskell-indentation-separated #'haskell-indentation-type " ->" )))))
610
610
(" (" . (lambda () (haskell-indentation-list #'haskell-indentation-type " )" " ," )))
611
611
(" [" . (lambda () (haskell-indentation-list #'haskell-indentation-type " ]" " ," )))
612
612
(" {" . (lambda () (haskell-indentation-list #'haskell-indentation-type " }" " ," )))))
@@ -637,7 +637,7 @@ the current buffer."
637
637
(" where" . (lambda () (haskell-indentation-with-starter
638
638
#'haskell-indentation-declaration-layout nil t )))
639
639
(" ::" . (lambda () (haskell-indentation-with-starter
640
- (lambda () (haskell-indentation-separated #'haskell-indentation-type '( " ->" " => " ) )))))
640
+ (lambda () (haskell-indentation-separated #'haskell-indentation-type " ->" )))))
641
641
(" =" . (lambda () (haskell-indentation-statement-right #'haskell-indentation-expression )))
642
642
(" <-" . (lambda () (haskell-indentation-statement-right #'haskell-indentation-expression )))
643
643
(" (" . (lambda () (haskell-indentation-list #'haskell-indentation-expression " )" '(list " ," " ->" ))))
@@ -702,7 +702,7 @@ the current buffer."
702
702
((eq current-token 'end-tokens )
703
703
(when (member following-token
704
704
'(value operator no-following-token
705
- " (" " [" " {" " ::" ))
705
+ " -> " " (" " [" " {" " ::" ))
706
706
(haskell-indentation-add-indentation current-indent))
707
707
(throw 'return nil ))
708
708
(t (let ((parser (assoc current-token haskell-indentation-type-list)))
@@ -1167,7 +1167,7 @@ the current buffer."
1167
1167
(match-string-no-properties 1 ))
1168
1168
((looking-at " [][(){}[,;]" )
1169
1169
(match-string-no-properties 0 ))
1170
- ((looking-at " \\ (\\\\\\ |->\\ |=> \\ | →\\ |<-\\ |←\\ |::\\ |∷\\ |=\\ ||\\ )\\ ([^-:!#$%&*+./<=>?@\\\\ ^|~]\\ |$\\ )" )
1170
+ ((looking-at " \\ (\\\\\\ |->\\ |→\\ |<-\\ |←\\ |::\\ |∷\\ |=\\ ||\\ )\\ ([^-:!#$%&*+./<=>?@\\\\ ^|~]\\ |$\\ )" )
1171
1171
(match-string-no-properties 1 ))
1172
1172
((looking-at " \\ (→\\ |←\\ |∷\\ )\\ ([^-:!#$%&*+./<=>?@\\\\ ^|~]\\ |$\\ )" )
1173
1173
(let ((tok (match-string-no-properties 1 )))
0 commit comments