@@ -1111,6 +1111,9 @@ inlineToOpenXML' _ (Str str) =
1111 formattedString str
1111 formattedString str
1112inlineToOpenXML' opts Space = inlineToOpenXML opts (Str " ")
1112inlineToOpenXML' opts Space = inlineToOpenXML opts (Str " ")
1113inlineToOpenXML' opts SoftBreak = inlineToOpenXML opts (Str " ")
1113inlineToOpenXML' opts SoftBreak = inlineToOpenXML opts (Str " ")
1114+inlineToOpenXML' opts (Span (_,["underline"],_) ils) = do
1115+ withTextProp (mknode "w:u" [("w:val","single")] ()) $
1116+ inlinesToOpenXML opts ils
1114inlineToOpenXML' _ (Span (ident,["comment-start"],kvs) ils) = do
1117inlineToOpenXML' _ (Span (ident,["comment-start"],kvs) ils) = do
1115 -- prefer the "id" in kvs, since that is the one produced by the docx
1118 -- prefer the "id" in kvs, since that is the one produced by the docx
1116 -- reader.
1119 -- reader.