@@ -370,8 +370,6 @@ preformatted = try $ do
370370 manyTill anyChar (htmlTag (~== TagClose "nowiki")))
371371 let inline' = whitespace' <|> endline' <|> nowiki'
372372 <|> (try $ notFollowedBy newline *> inline)
373− let strToCode (Str s) = Code ("",[],[]) s
374− strToCode x = x
375373 contents <- mconcat <$> many1 inline'
376374 let spacesStr (Str xs) = all isSpace xs
377375 spacesStr _ = False
@@ -379,6 +377,10 @@ preformatted = try $ do
379377 then return mempty
380378 else return $ B.para $ walk strToCode contents
381379
380+strToCode :: Inline -> Inline
381+strToCode (Str s) = Code ("",[],[]) s
382+strToCode x = x
383+
382384header :: MWParser Blocks
383385header = try $ do
384386 guardColumnOne
@@ -542,8 +544,8 @@ inlineTag = do
542544 TagOpen "del" _ -> B.strikeout <$> inlinesInTags "del"
543545 TagOpen "sub" _ -> B.subscript <$> inlinesInTags "sub"
544546 TagOpen "sup" _ -> B.superscript <$> inlinesInTags "sup"
545− TagOpen "code" _ -> B.code <$> charsInTags "code"
546− TagOpen "tt" _ -> B.code <$> charsInTags "tt"
547+ TagOpen "code" _ -> walk strToCode <$> inlinesInTags "code"
548+ TagOpen "tt" _ -> walk strToCode <$> inlinesInTags "tt"
547549 TagOpen "hask" _ -> B.codeWith ("",["haskell"],[]) <$> charsInTags "hask"
548550 _ -> B.rawInline "html" . snd <$> htmlTag (~== tag)
549551