-- -- instance Show MarkdownInline where
-- --   show NoInline = ""
-- --   show LineEnding = "\n"
-- --   show (Text xs) = xs
-- --   show (Codespan xs) = "`" ++ xs ++ "`"
-- --   show (Bold xs) = "**" ++ show xs ++ "**"
-- --   show (Italic xs) = "*" ++ show xs ++ "*"
-- --   show (Link xs url mtitle) = "[" ++ show xs ++ "]" ++ "(" ++ url ++ ")"
-- --   show (Cons x y) = show x ++ show y

cons :: MarkdownInline -> MarkdownInline -> MarkdownInline
cons x NoInline                    = x
cons :: MarkdownInline -> MarkdownInline -> MarkdownInline
cons x NoInline                    = x
cons x NoInline                    = x