@@ -273,7 +273,8 @@ blockToRST (CodeBlock (_,classes,kvs) str) = do
273273 then return $ prefixed "> " (text str) $$ blankline
274274 else return $
275275 (case [c | c <- classes,
276− c `notElem` ["sourceCode","literate","numberLines"]] of
276+ c `notElem` ["sourceCode","literate","numberLines",
277+ "number-lines","example"]] of
277278 [] -> "::"
278279 (lang:_) -> (".. code:: " <> text lang) $$ numberlines)
279280 $+$ nest 3 (text str) $$ blankline