@@ -36,11 +36,16 @@ makeRoundTrip :: Block -> Block
36makeRoundTrip CodeBlock{} = Para [Str "code block was here"]
36makeRoundTrip CodeBlock{} = Para [Str "code block was here"]
37makeRoundTrip LineBlock{} = Para [Str "line block was here"]
37makeRoundTrip LineBlock{} = Para [Str "line block was here"]
38makeRoundTrip RawBlock{} = Para [Str "raw block was here"]
38makeRoundTrip RawBlock{} = Para [Str "raw block was here"]
39+makeRoundTrip b@Table{} = walk rmLineBreaks b
39makeRoundTrip (Div attr bs) = Div attr $ filter (not . isHeaderBlock) bs
40makeRoundTrip (Div attr bs) = Div attr $ filter (not . isHeaderBlock) bs
40-- avoids round-trip failures related to makeSections
41-- avoids round-trip failures related to makeSections
41-- e.g. with [Div ("loc",[],[("a","11"),("b_2","a b c")]) [Header 3 ("",[],[]) []]]
42-- e.g. with [Div ("loc",[],[("a","11"),("b_2","a b c")]) [Header 3 ("",[],[]) []]]
42makeRoundTrip x = x
43makeRoundTrip x = x
45+rmLineBreaks :: Inline -> Inline
46+rmLineBreaks LineBreak = SoftBreak
44removeRawInlines :: Inline -> Inline
49removeRawInlines :: Inline -> Inline
45removeRawInlines RawInline{} = Str "raw inline was here"
50removeRawInlines RawInline{} = Str "raw inline was here"
46removeRawInlines x = x
51removeRawInlines x = x