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