From 4073ed3534eea6579869679bdb59ea3322c2a588 Mon Sep 17 00:00:00 2001 From: Artem Pelenitsyn Date: Sun, 8 May 2022 10:19:47 -0400 Subject: fix parsing trailing quotes in backticked identifiers (#1408) (#1483) --- haddock-library/test/Documentation/Haddock/ParserSpec.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'haddock-library/test') diff --git a/haddock-library/test/Documentation/Haddock/ParserSpec.hs b/haddock-library/test/Documentation/Haddock/ParserSpec.hs index 6e700050..1d227e57 100644 --- a/haddock-library/test/Documentation/Haddock/ParserSpec.hs +++ b/haddock-library/test/Documentation/Haddock/ParserSpec.hs @@ -121,6 +121,9 @@ spec = do it "can parse identifiers ending with a single quote" $ do "'foo''" `shouldParseTo` DocIdentifier "foo'" + it "can parse identifiers in backticks ending with a single quote" $ do + "`foo'`" `shouldParseTo` DocIdentifier "foo'" + it "can parse an identifier containing a digit" $ do "'f0'" `shouldParseTo` DocIdentifier "f0" -- cgit v1.2.3