-- | Convert Pandoc inline element to RST.
inlineToRST :: Inline -> State WriterState Doc
inlineToRST (Emph lst) = do 
  contents <- inlineListToRST lst
  return $ "*" <> contents <> "*"
inlineToRST :: Inline -> State WriterState Doc
inlineToRST (Emph lst) = do 
  contents <- inlineListToRST lst
  return $ "*" <> contents <> "*"
inlineToRST (Emph lst) = do 
  contents <- inlineListToRST lst
  return $ "*" <> contents <> "*"