@@ -28,9 +28,15 @@ spcSep :: [Inlines] -> Inlines
2828spcSep = mconcat . intersperse space
2929
3030-- Tables don't round-trip yet
31+-- Definition lists with multiple descriptions are supported by writer, but not reader yet
32+
33+singleDescription :: ([Inline], [[Block]]) -> ([Inline], [[Block]])
34+singleDescription (a, x:_) = (a, [x])
35+singleDescription x = x
3136
3237makeRoundTrip :: Block -> Block
3338makeRoundTrip Table{} = Para [Str "table was here"]
39+makeRoundTrip (DefinitionList items) = DefinitionList $ map singleDescription items
3440makeRoundTrip x = x
3541
3642-- Demand that any AST produced by Muse reader and written by Muse writer can be read back exactly the same way.