[nongnu] elpa/haskell-tng-mode d0cd9b9 252/385: documenting an annoying indentation bug

[ELPA Syncer]

branch: elpa/haskell-tng-mode
commit d0cd9b979bf4584a4a6f38b2322e7ca2ea8f5bd7
Author: Tseen She <ts33n.sh3@gmail.com>
Commit: Tseen She <ts33n.sh3@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>