From 98aedd0d69e713ef9947b60ab2acdf5247f82605 Mon Sep 17 00:00:00 2001 From: Mathieu Boespflug Date: Sun, 21 Apr 2013 00:59:40 +0200 Subject: [PATCH] Align arrows in types under "::". Fixes #1. --- haskell-indentation.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/haskell-indentation.el b/haskell-indentation.el index fe0660c54..30d91b57a 100644 --- a/haskell-indentation.el +++ b/haskell-indentation.el @@ -495,7 +495,8 @@ Preserves indentation and removes extra whitespace" ("instance" . haskell-indentation-class-declaration ))) (defconst haskell-indentation-type-list - '(("::" . (lambda () (haskell-indentation-statement-right #'haskell-indentation-type))) + '(("::" . (lambda () (haskell-indentation-with-starter + (lambda () (haskell-indentation-separated #'haskell-indentation-type "->" nil)) nil))) ("(" . (lambda () (haskell-indentation-list #'haskell-indentation-type ")" "," nil))) ("[" . (lambda () (haskell-indentation-list #'haskell-indentation-type @@ -531,7 +532,8 @@ Preserves indentation and removes extra whitespace" "->" haskell-indentation-expression)))) ("where" . (lambda () (haskell-indentation-with-starter #'haskell-indentation-declaration-layout nil t))) - ("::" . (lambda () (haskell-indentation-statement-right #'haskell-indentation-type))) + ("::" . (lambda () (haskell-indentation-with-starter + (lambda () (haskell-indentation-separated #'haskell-indentation-type "->" nil)) nil))) ("=" . (lambda () (haskell-indentation-statement-right #'haskell-indentation-expression))) ("<-" . (lambda () (haskell-indentation-statement-right #'haskell-indentation-expression))) ("(" . (lambda () (haskell-indentation-list #'haskell-indentation-expression