@@ -61,7 +61,6 @@ import Data.List
6161import Data.Bifunctor
6262import Data.Sequence ( ViewL (..), ViewR (..), viewl, viewr, spanr, spanl
6363 , (><), (|>) )
64−import qualified Data.Sequence as Seq (null)
6564import Text.Pandoc.Builder
6665
6766data Modifier a = Modifier (a -> a)
@@ -90,7 +89,7 @@ isSpace _ = False
9089stackInlines :: [Modifier Inlines] -> Inlines -> Inlines
9190stackInlines [] ms = ms
9291stackInlines (Modifier f : fs) ms =
93− if isEmpty ms
92+ if null ms
9493 then stackInlines fs ms
9594 else f $ stackInlines fs ms
9695stackInlines (AttrModifier f attr : fs) ms = f attr $ stackInlines fs ms
@@ -102,7 +101,7 @@ unstackInlines ms = case ilModifierAndInnards ms of
102101
103102ilModifierAndInnards :: Inlines -> Maybe (Modifier Inlines, Inlines)
104103ilModifierAndInnards ils = case viewl $ unMany ils of
105− x :< xs | Seq.null xs -> second fromList <$> case x of
104+ x :< xs | null xs -> second fromList <$> case x of
106105 Emph lst -> Just (Modifier emph, lst)
107106 Strong lst -> Just (Modifier strong, lst)
108107 SmallCaps lst -> Just (Modifier smallcaps, lst)
@@ -143,12 +142,12 @@ combineSingletonInlines x y =
143142 y_rem_attr = filter isAttrModifier y_remaining
144143 in
145144 case null shared of
146− True | isEmpty xs && isEmpty ys ->
145+ True | null xs && null ys ->
147146 stackInlines (x_rem_attr <> y_rem_attr) mempty
148− | isEmpty xs ->
147+ | null xs ->
149148 let (sp, y') = spaceOutInlinesL y in
150149 stackInlines x_rem_attr mempty <> sp <> y'
151− | isEmpty ys ->
150+ | null ys ->
152151 let (x', sp) = spaceOutInlinesR x in
153152 x' <> sp <> stackInlines y_rem_attr mempty
154153 | otherwise ->
@@ -177,9 +176,6 @@ instance (Monoid a, Eq a) => Eq (Modifier a) where
177176 (AttrModifier f attr) == (AttrModifier g attr') = f attr mempty == g attr' mempty
178177 _ == _ = False
179178
180−isEmpty :: (Monoid a, Eq a) => a -> Bool
181−isEmpty x = x == mempty
182−
183179isAttrModifier :: Modifier a -> Bool
184180isAttrModifier (AttrModifier _ _) = True
185181isAttrModifier _ = False