From 7d2106e18f26a680d157ef943da2602e7199afa1 Mon Sep 17 00:00:00 2001 From: Mateusz Kowalczyk Date: Wed, 29 Jan 2014 20:37:10 +0000 Subject: Fix @ code blocks MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit In cases where we had some horizontal space before the closing ‘@’, the parser would not accept the block as a code block and we'd get ugly output. --- test/Haddock/ParserSpec.hs | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'test/Haddock/ParserSpec.hs') diff --git a/test/Haddock/ParserSpec.hs b/test/Haddock/ParserSpec.hs index 9bca745f..455a67f1 100644 --- a/test/Haddock/ParserSpec.hs +++ b/test/Haddock/ParserSpec.hs @@ -410,6 +410,14 @@ spec = before initStaticOpts $ do , "@" ] `shouldParseTo` DocCodeBlock "foo\n@\nbar\n" + it "accepts horizontal space before the @" $ do + unlines [ " @" + , " foo" + , "" + , " bar" + , " @" + ] `shouldParseTo` DocCodeBlock " foo\n\n bar\n " + it "accepts unicode" $ do "@foo 灼眼のシャナ bar@" `shouldParseTo` DocCodeBlock "foo 灼眼のシャナ bar" -- cgit v1.2.3