@@ -838,24 +838,24 @@ parseInline (Elem e) =
838 return $ if qt == SingleQuote
838 return $ if qt == SingleQuote
839 then singleQuoted contents
839 then singleQuoted contents
840 else doubleQuoted contents
840 else doubleQuoted contents
841− "code" -> codeWithLang []
841+ "code" -> codeWithLang
842− "filename" -> codeWithLang ["filename"]
842+ "filename" -> codeWithLang
843− "literal" -> codeWithLang []
843+ "literal" -> codeWithLang
844− "computeroutput" -> codeWithLang ["computeroutput"]
844+ "computeroutput" -> codeWithLang
845− "prompt" -> codeWithLang ["prompt"]
845+ "prompt" -> codeWithLang
846− "parameter" -> codeWithLang ["parameter"]
846+ "parameter" -> codeWithLang
847− "option" -> codeWithLang ["option"]
847+ "option" -> codeWithLang
848 "optional" -> do x <- getInlines e
848 "optional" -> do x <- getInlines e
849 return $ str "[" <> x <> str "]"
849 return $ str "[" <> x <> str "]"
850− "markup" -> codeWithLang []
850+ "markup" -> codeWithLang
851 "wordasword" -> emph <$> innerInlines
851 "wordasword" -> emph <$> innerInlines
852− "command" -> codeWithLang ["command"]
852+ "command" -> codeWithLang
853− "varname" -> codeWithLang ["varname"]
853+ "varname" -> codeWithLang
854− "function" -> codeWithLang ["function"]
854+ "function" -> codeWithLang
855− "type" -> codeWithLang ["type"]
855+ "type" -> codeWithLang
856− "symbol" -> codeWithLang ["symbol"]
856+ "symbol" -> codeWithLang
857− "constant" -> codeWithLang ["constant"]
857+ "constant" -> codeWithLang
858− "userinput" -> codeWithLang ["userinput"]
858+ "userinput" -> codeWithLang
859 "varargs" -> return $ code "(...)"
859 "varargs" -> return $ code "(...)"
860 "xref" -> return $ str "?" -- so at least you know something is there
860 "xref" -> return $ str "?" -- so at least you know something is there
861 "email" -> return $ link ("mailto:" ++ strContent e) ""
861 "email" -> return $ link ("mailto:" ++ strContent e) ""
@@ -879,9 +879,9 @@ parseInline (Elem e) =
879 _ -> innerInlines
879 _ -> innerInlines
880 where innerInlines = (trimInlines . mconcat) <$>
880 where innerInlines = (trimInlines . mconcat) <$>
881 (mapM parseInline $ elContent e)
881 (mapM parseInline $ elContent e)
882− codeWithLang classes = do
882+ codeWithLang = do
883 let classes' = case attrValue "language" e of
883 let classes' = case attrValue "language" e of
884− "" -> classes
884+ "" -> []
885− l -> l:classes
885+ l -> [l]
886 return $ codeWith (attrValue "id" e,classes',[]) $ strContent e
886 return $ codeWith (attrValue "id" e,classes',[]) $ strContent e