DocUnorderedList [DocAppend (DocParagraph (DocString "Something about foo")) (DocCodeBlock (DocString (concat ["foo :: a -> b -> c\n", "foo a b = bar c b\n"]))), DocAppend (DocParagraph (DocString "Something about bar")) (DocCodeBlock (DocString (concat ["bar :: a -> b -> c\n", "bar a b = foo b a\n"]))), DocParagraph (DocString "And then we continue")]