Try to fix bug on GHC 8.0.1 or older

igrep · igrep · commit 01d9dfa27f4a · 2022-03-20T20:21:39.000+09:00
diff --git a/src/Text/Show/Unicode.hs b/src/Text/Show/Unicode.hs
@@ -136,7 +136,7 @@ recoverChars p = outsideLiteral
 --  * Note that special delimiter sequence "\&" may appear in a string. c.f.  <https://www.haskell.org/onlinereport/haskell2010/haskellch2.html#x7-200002.6 Section 2.6 of the Haskell 2010 specification>.
 recoverCharInLiteral :: Parser (String, Char)
 recoverCharInLiteral =
-  lexCharParser <|> (("\&", '&') <$ string "\\&")
+  (("\&", '&') <$ string "\\&") <|> lexCharParser
   where
     lexCharParser :: Parser (String, Char)
     lexCharParser = StateT $ \s ->
