@@ -106,6 +106,7 @@ parseInline (Elem e) =
106 return $ if qt == SingleQuote
106 return $ if qt == SingleQuote
107 then singleQuoted contents
107 then singleQuoted contents
108 else doubleQuoted contents
108 else doubleQuoted contents
109+ "literal" -> return $ code $ strContent e -- TODO attrs
109 "ulink" -> link
110 "ulink" -> link
110 (fromMaybe "" (lookupAttrBy (\attr -> qName attr == "url")
111 (fromMaybe "" (lookupAttrBy (\attr -> qName attr == "url")
111 (elAttribs e))) "" <$> innerInlines
112 (elAttribs e))) "" <$> innerInlines