From c6848943838fa0b2f42201958fa5d5318d9c4448 Mon Sep 17 00:00:00 2001
From: Soumik Sarkar <soumiksarkar.3120@gmail.com>
Date: Wed, 13 Nov 2024 23:00:20 +0530
Subject: [PATCH] Work around unwanted Haddock code blocks (#25)

---
 src/Regex/Internal/CharSet.hs | 6 +++---
 src/Regex/Internal/Regex.hs   | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/Regex/Internal/CharSet.hs b/src/Regex/Internal/CharSet.hs
index 4970296..ec0ec80 100644
--- a/src/Regex/Internal/CharSet.hs
+++ b/src/Regex/Internal/CharSet.hs
@@ -46,18 +46,18 @@ instance Show CharSet where
   showsPrec p cs = showParen (p > 10) $
     showString "fromRanges " . shows (ranges cs)
 
--- | @fromString = 'fromList'@
+-- | @fromString@ = 'fromList'
 instance IsString CharSet where
   fromString = fromList
 
--- | @(<>) = 'union'@
+-- | @(<>)@ = 'union'
 instance Semigroup CharSet where
   (<>) = union
   sconcat = F.foldl' union empty
   {-# INLINE sconcat #-}
   stimes = stimesIdempotentMonoid
 
--- | @mempty = 'empty'@
+-- | @mempty@ = 'empty'
 instance Monoid CharSet where
   mempty = empty
   mconcat = F.foldl' union empty
diff --git a/src/Regex/Internal/Regex.hs b/src/Regex/Internal/Regex.hs
index 045c556..db8a6e2 100644
--- a/src/Regex/Internal/Regex.hs
+++ b/src/Regex/Internal/Regex.hs
@@ -120,13 +120,13 @@ instance Alternative (RE c) where
   some re = liftA2' (:) re (many re)
   many = fmap reverse . foldlMany' (flip (:)) []
 
--- | @(<>) = liftA2 (<>)@
+-- | @(<>)@ = @liftA2 (<>)@
 instance Semigroup a => Semigroup (RE c a) where
   (<>) = liftA2 (<>)
   sconcat = fmap sconcat . sequenceA
   {-# INLINE sconcat #-}
 
--- | @mempty = pure mempty@
+-- | @mempty@ = @pure mempty@
 instance Monoid a => Monoid (RE c a) where
   mempty = pure mempty
   mconcat = fmap mconcat . sequenceA