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