@@ -838,24 +838,24 @@ parseInline (Elem e) =
838838 return $ if qt == SingleQuote
839839 then singleQuoted contents
840840 else doubleQuoted contents
841− "code" -> codeWithLang []
842− "filename" -> codeWithLang ["filename"]
843− "literal" -> codeWithLang []
844− "computeroutput" -> codeWithLang ["computeroutput"]
845− "prompt" -> codeWithLang ["prompt"]
846− "parameter" -> codeWithLang ["parameter"]
847− "option" -> codeWithLang ["option"]
841+ "code" -> codeWithLang
842+ "filename" -> codeWithLang
843+ "literal" -> codeWithLang
844+ "computeroutput" -> codeWithLang
845+ "prompt" -> codeWithLang
846+ "parameter" -> codeWithLang
847+ "option" -> codeWithLang
848848 "optional" -> do x <- getInlines e
849849 return $ str "[" <> x <> str "]"
850− "markup" -> codeWithLang []
850+ "markup" -> codeWithLang
851851 "wordasword" -> emph <$> innerInlines
852− "command" -> codeWithLang ["command"]
853− "varname" -> codeWithLang ["varname"]
854− "function" -> codeWithLang ["function"]
855− "type" -> codeWithLang ["type"]
856− "symbol" -> codeWithLang ["symbol"]
857− "constant" -> codeWithLang ["constant"]
858− "userinput" -> codeWithLang ["userinput"]
852+ "command" -> codeWithLang
853+ "varname" -> codeWithLang
854+ "function" -> codeWithLang
855+ "type" -> codeWithLang
856+ "symbol" -> codeWithLang
857+ "constant" -> codeWithLang
858+ "userinput" -> codeWithLang
859859 "varargs" -> return $ code "(...)"
860860 "xref" -> return $ str "?" -- so at least you know something is there
861861 "email" -> return $ link ("mailto:" ++ strContent e) ""
@@ -879,9 +879,9 @@ parseInline (Elem e) =
879879 _ -> innerInlines
880880 where innerInlines = (trimInlines . mconcat) <$>
881881 (mapM parseInline $ elContent e)
882− codeWithLang classes = do
882+ codeWithLang = do
883883 let classes' = case attrValue "language" e of
884− "" -> classes
885− l -> l:classes
884+ "" -> []
885+ l -> [l]
886886 return $ codeWith (attrValue "id" e,classes',[]) $ strContent e
887887