@@ -47,10 +47,10 @@ highlightHtml (_, classes, keyvals) rawCode =
4747 Just _ -> [OptNumberLines]
4848 lcLanguages = map (map toLower) languages
4949 in case find (\c -> (map toLower c) `elem` lcLanguages) classes of
50− Nothing -> Left "Unknown or unsupported language"
51− Just lang -> case highlightAs lang rawCode of
52− Left err -> Left err
53− Right hl -> Right $ formatAsXHtml fmtOpts lang hl
50+ Nothing -> Left "Unknown or unsupported language"
51+ Just language -> case highlightAs language rawCode of
52+ Left err -> Left err
53+ Right hl -> Right $ formatAsXHtml fmtOpts language hl
5454
5555#else
5656defaultHighlightingCss :: String