emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/haskell-tng-mode 6cf67bf 105/385: indentation can't handle


From: ELPA Syncer
Subject: [nongnu] elpa/haskell-tng-mode 6cf67bf 105/385: indentation can't handle mismatched parens, don't test for it
Date: Tue, 5 Oct 2021 23:59:10 -0400 (EDT)

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

    indentation can't handle mismatched parens, don't test for it
---
 test/src/medley.hs               | 2 +-
 test/src/medley.hs.faceup        | 2 +-
 test/src/medley.hs.insert.indent | 8 ++++----
 test/src/medley.hs.layout        | 2 +-
 test/src/medley.hs.lexer         | 2 +-
 5 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/test/src/medley.hs b/test/src/medley.hs
index dcb4e29..317fc85 100644
--- a/test/src/medley.hs
+++ b/test/src/medley.hs
@@ -26,7 +26,7 @@ import           System.Exit         (ExitCode (..), 
exitFailure, qualified,
                                       Typey,
                                       wibble,
                                       Wibble)
-import           System.FilePath     (replaceExtension, Foo(Bar, (:<))
+import           System.FilePath     (replaceExtension, Foo(Bar, (:<)))
 import           System.IO           (IOMode (..), hClose, hGetContents,
                                       hPutStr, hPutStrLn, openFile, stderr,
                                       stdout, MoarTypey)
diff --git a/test/src/medley.hs.faceup b/test/src/medley.hs.faceup
index f89fa90..edaf7bf 100644
--- a/test/src/medley.hs.faceup
+++ b/test/src/medley.hs.faceup
@@ -26,7 +26,7 @@
                                       
«:haskell-tng:type:Typey»«:haskell-tng:keyword:,»
                                       wibble«:haskell-tng:keyword:,»
                                       
«:haskell-tng:type:Wibble»«:haskell-tng:keyword:)»
-«:haskell-tng:keyword:import»           «:haskell-tng:module:System.FilePath»  
   «:haskell-tng:keyword:(»replaceExtension«:haskell-tng:keyword:,» 
«:haskell-tng:type:Foo»«:haskell-tng:keyword:(»«:haskell-tng:constructor:Bar»«:haskell-tng:keyword:,»«:haskell-tng:constructor:
 »«:haskell-tng:keyword:(»«:haskell-tng:constructor::<»«:haskell-tng:keyword:))»
+«:haskell-tng:keyword:import»           «:haskell-tng:module:System.FilePath»  
   «:haskell-tng:keyword:(»replaceExtension«:haskell-tng:keyword:,» 
«:haskell-tng:type:Foo»«:haskell-tng:keyword:(»«:haskell-tng:constructor:Bar»«:haskell-tng:keyword:,»«:haskell-tng:constructor:
 
»«:haskell-tng:keyword:(»«:haskell-tng:constructor::<»«:haskell-tng:keyword:)))»
 «:haskell-tng:keyword:import»           «:haskell-tng:module:System.IO»        
   «:haskell-tng:keyword:(»«:haskell-tng:type:IOMode» 
«:haskell-tng:keyword:(..),» hClose«:haskell-tng:keyword:,» 
hGetContents«:haskell-tng:keyword:,»
                                       hPutStr«:haskell-tng:keyword:,» 
hPutStrLn«:haskell-tng:keyword:,» openFile«:haskell-tng:keyword:,» 
stderr«:haskell-tng:keyword:,»
                                       stdout«:haskell-tng:keyword:,» 
«:haskell-tng:type:MoarTypey»«:haskell-tng:keyword:)»
diff --git a/test/src/medley.hs.insert.indent b/test/src/medley.hs.insert.indent
index 501e073..b077e30 100644
--- a/test/src/medley.hs.insert.indent
+++ b/test/src/medley.hs.insert.indent
@@ -54,8 +54,8 @@ import           System.Exit         (ExitCode (..), 
exitFailure, qualified,
 .                                     v
                                       Wibble)
 v                                     .
-import           System.FilePath     (replaceExtension, Foo(Bar, (:<))
-.                                     v
+import           System.FilePath     (replaceExtension, Foo(Bar, (:<)))
+v
 import           System.IO           (IOMode (..), hClose, hGetContents,
 .                                     v
                                       hPutStr, hPutStrLn, openFile, stderr,
@@ -83,7 +83,7 @@ foo = "wobble (wibble)"
 
 v
 class Get a s where
-.                                       v
+. v
   get :: Set s -> a
 . .                 v
 
@@ -271,4 +271,4 @@ foo = bar
 
 . .     v
 test = 1 `shouldBe` 1
-.                                     v
\ No newline at end of file
+v
\ No newline at end of file
diff --git a/test/src/medley.hs.layout b/test/src/medley.hs.layout
index e275a62..0160a9e 100644
--- a/test/src/medley.hs.layout
+++ b/test/src/medley.hs.layout
@@ -26,7 +26,7 @@ module Foo.Bar.Main
                                       Typey,
                                       wibble,
                                       Wibble)
-;import           System.FilePath     (replaceExtension, Foo(Bar, (:<))
+;import           System.FilePath     (replaceExtension, Foo(Bar, (:<)))
 ;import           System.IO           (IOMode (..), hClose, hGetContents,
                                       hPutStr, hPutStrLn, openFile, stderr,
                                       stdout, MoarTypey)
diff --git a/test/src/medley.hs.lexer b/test/src/medley.hs.lexer
index 409876e..8c76816 100644
--- a/test/src/medley.hs.lexer
+++ b/test/src/medley.hs.lexer
@@ -26,7 +26,7 @@ VARID CONID
 CONID ,
 VARID ,
 CONID »
-; import CONID « VARID , CONID « CONID , « CONSYM » »
+; import CONID « VARID , CONID « CONID , « CONSYM » » »
 ; import CONID « CONID « .. » , VARID , VARID ,
 VARID , VARID , VARID , VARID ,
 VARID , CONID »



reply via email to

[Prev in Thread] Current Thread [Next in Thread]