Merge pull request #1190 from neongreen/master

gracjan · gracjan · commit 37113ffb9bf7 · 2016-03-05T20:15:33.000+01:00
Add a test for indentation broken on a quasiquote
diff --git a/tests/haskell-indentation-tests.el b/tests/haskell-indentation-tests.el
@@ -656,6 +656,13 @@ test = [randomQQ| This is
 "
               (4 0 2))
 
+(hindent-test "29c* quasiquote with quotes in it and a string outside" "
+foo = do
+  let bar = [text|\"some text\"|]
+  button \"Cancel\" $ do
+"
+              (4 4))
+
 (hindent-test "30* parse '[] identifier correctly" "
 instance Callable '[]
 "

Original file line number	Diff line number	Diff line change
`@@ -656,6 +656,13 @@ test = [randomQQ\| This is`
`656`	`656`	`"`
`657`	`657`	`(4 0 2))`
`658`	`658`
	`659`	`+(hindent-test "29c* quasiquote with quotes in it and a string outside" "`
	`660`	`+foo = do`
	`661`	`+ let bar = [text\|\"some text\"\|]`
	`662`	`+ button \"Cancel\" $ do`
	`663`	`+"`
	`664`	`+ (4 4))`
	`665`	`+`
`659`	`666`	`(hindent-test "30* parse '[] identifier correctly" "`
`660`	`667`	`instance Callable '[]`
`661`	`668`	`"`