@@ -39,7 +39,7 @@ import Data.Char ( isAlphaNum )
3939import Data.Maybe
4040import Text.Pandoc.Definition
4141import qualified Text.Pandoc.Builder as B
42−import Text.Pandoc.Builder (Inlines(..), Blocks, trimInlines, (<>))
42+import Text.Pandoc.Builder (Inlines, Blocks, trimInlines, (<>))
4343import Text.Pandoc.Options
4444import Text.Pandoc.Shared hiding (compactify)
4545import Text.Pandoc.Parsing hiding (tableWith)
@@ -48,7 +48,6 @@ import Text.Pandoc.Readers.HTML ( htmlTag, htmlInBalanced, isInlineTag, isBlockT
4848 isTextTag, isCommentTag )
4949import Text.Pandoc.XML ( fromEntities )
5050import Data.Monoid (mconcat, mempty)
51−import qualified Data.Sequence as Seq -- TODO leaky abstraction, need better isNull in Builder
5251import Control.Applicative ((<$>), (<*), (*>), (<$))
5352import Control.Monad
5453import Text.HTML.TagSoup
@@ -94,7 +93,7 @@ isBlank _ = False
9493--
9594
9695isNull :: F Inlines -> Bool
97−isNull ils = Seq.null $ unInlines (runF ils def)
96+isNull ils = B.isNull $ runF ils def
9897
9998spnl :: Parser [Char] st ()
10099spnl = try $ do
@@ -1020,8 +1019,7 @@ pipeTableRow = do
10201019 return $ map
10211020 (\ils ->
10221021 case trimInlines ils of
1023− -- TODO leaky abstraction:
1024− ils' | Seq.null (unInlines ils') -> mempty
1022+ ils' | B.isNull ils' -> mempty
10251023 | otherwise -> B.plain $ ils') cells'
10261024
10271025pipeTableHeaderPart :: Parser [Char] st Alignment