branch: elpa/haskell-tng-mode
commit d0cd9b979bf4584a4a6f38b2322e7ca2ea8f5bd7
Author: Tseen She <ts33n....@gmail.com>
Commit: Tseen She <ts33n....@gmail.com>
documenting an annoying indentation bug
---
test/haskell-tng-indent-test.el | 1 +
test/src/indentation.hs | 2 ++
test/src/indentation.hs.append.indent | 6 +++++-
test/src/indentation.hs.faceup | 2 ++
test/src/indentation.hs.imenu | 3 ++-
test/src/indentation.hs.insert.indent | 6 +++++-
test/src/indentation.hs.layout | 2 ++
test/src/indentation.hs.sexps | 4 +++-
test/src/indentation.hs.syntax | 2 ++
9 files changed, 24 insertions(+), 4 deletions(-)
diff --git a/test/haskell-tng-indent-test.el b/test/haskell-tng-indent-test.el
index f5f5ac2..6e4fccb 100644
--- a/test/haskell-tng-indent-test.el
+++ b/test/haskell-tng-indent-test.el
@@ -12,6 +12,7 @@
(require 'haskell-tng-testutils
"test/haskell-tng-testutils.el")
+;; FIXME types_short
;; TODO line after `instance ... where' has too much indent
;; TODO records assigning / copy by label
;; TODO records of functions
diff --git a/test/src/indentation.hs b/test/src/indentation.hs
index 89e0541..4accd91 100644
--- a/test/src/indentation.hs
+++ b/test/src/indentation.hs
@@ -144,3 +144,5 @@ types2b
types3 :: (Monad m, MonadReader Foo m) =>
(?log :: HasLogger m) =>
a -> b -> c
+
+types_short :: Foo -> Bar
diff --git a/test/src/indentation.hs.append.indent
b/test/src/indentation.hs.append.indent
index b039658..768308f 100644
--- a/test/src/indentation.hs.append.indent
+++ b/test/src/indentation.hs.append.indent
@@ -291,4 +291,8 @@ types3 :: (Monad m, MonadReader Foo m) =>
a -> b -> c
v 1
-v 1
\ No newline at end of file
+v 1
+types_short :: Foo -> Bar
+1 v
+
+v
\ No newline at end of file
diff --git a/test/src/indentation.hs.faceup b/test/src/indentation.hs.faceup
index 78d6621..05c55b4 100644
--- a/test/src/indentation.hs.faceup
+++ b/test/src/indentation.hs.faceup
@@ -144,4 +144,6 @@ types2b
types3 «:haskell-tng-keyword-face:::»«:haskell-tng-type-face:
»«:haskell-tng-keyword-face:(»«:haskell-tng-type-face:Monad
m»«:haskell-tng-keyword-face:,»«:haskell-tng-type-face: MonadReader Foo
m»«:haskell-tng-keyword-face:)»«:haskell-tng-type-face:
»«:haskell-tng-keyword-face:=>»«:haskell-tng-type-face:
»«:haskell-tng-keyword-face:(»«:haskell-tng-type-face:?log
»«:haskell-tng-keyword-face:::»«:haskell-tng-type-face: HasLogger
m»«:haskell-tng-keyword-face:)»«:haskell-tng-type-face:
»«:haskell-tng-keyword-face:=>»«:haskell-tng-type-face:
a »«:haskell-tng-keyword-face:->»«:haskell-tng-type-face: b
»«:haskell-tng-keyword-face:->»«:haskell-tng-type-face: c
+»
+types_short «:haskell-tng-keyword-face:::»«:haskell-tng-type-face: Foo
»«:haskell-tng-keyword-face:->»«:haskell-tng-type-face: Bar
»
\ No newline at end of file
diff --git a/test/src/indentation.hs.imenu b/test/src/indentation.hs.imenu
index 3face5f..49205d8 100644
--- a/test/src/indentation.hs.imenu
+++ b/test/src/indentation.hs.imenu
@@ -20,4 +20,5 @@
("types1" . 2371)
("types2" . 2416)
("types2b" . 2474)
- ("types3" . 2535))
+ ("types3" . 2535)
+ ("types_short" . 2635))
diff --git a/test/src/indentation.hs.insert.indent
b/test/src/indentation.hs.insert.indent
index 782ec9f..ffc288c 100644
--- a/test/src/indentation.hs.insert.indent
+++ b/test/src/indentation.hs.insert.indent
@@ -289,4 +289,8 @@ types3 :: (Monad m, MonadReader Foo m) =>
(?log :: HasLogger m) =>
1 v
a -> b -> c
-v 1
\ No newline at end of file
+v 1
+
+v 1
+types_short :: Foo -> Bar
+v
\ No newline at end of file
diff --git a/test/src/indentation.hs.layout b/test/src/indentation.hs.layout
index 3a54343..27e0ac4 100644
--- a/test/src/indentation.hs.layout
+++ b/test/src/indentation.hs.layout
@@ -144,4 +144,6 @@ module Indentation where
;types3 :: (Monad m, MonadReader Foo m) =>
(?log :: HasLogger m) =>
a -> b -> c
+
+;types_short :: Foo -> Bar
}
\ No newline at end of file
diff --git a/test/src/indentation.hs.sexps b/test/src/indentation.hs.sexps
index f847a8d..2c4037e 100644
--- a/test/src/indentation.hs.sexps
+++ b/test/src/indentation.hs.sexps
@@ -143,5 +143,7 @@
((types3) :: ((Monad) (m), (MonadReader) (Foo) (m)) =>
((?log) :: (HasLogger) (m)) =>
- (a) -> (b) -> (c))))))))))))))
+ (a) -> (b) -> (c))
+
+((types_short) :: (Foo) -> (Bar))))))))))))))
)))
\ No newline at end of file
diff --git a/test/src/indentation.hs.syntax b/test/src/indentation.hs.syntax
index 7577f1a..04233b1 100644
--- a/test/src/indentation.hs.syntax
+++ b/test/src/indentation.hs.syntax
@@ -144,3 +144,5 @@ wwwwwww>
wwwwww __ (wwwww w. wwwwwwwwwww www w) __>
(_www __ wwwwwwwww w) __>
w __ w __ w>
+>
+wwwwwwwwwww __ www __ www>
