renderList :: (IsString a, Monoid a)
           => [D] -> DocState a
renderList [] = return ()
renderList :: (IsString a, Monoid a)
           => [D] -> DocState a
renderList [] = return ()
renderList [] = return ()