From 14fd553fe17c7b5d94996990492e6a54acc48544 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Thu, 31 Jul 2008 06:35:58 +0000 Subject: Code cleanup in Text/Pandoc/Highlighting.hs. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1340 788f1e2b-df1e-0410-8736-df70ead52e1b --- Text/Pandoc/Highlighting.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Text') diff --git a/Text/Pandoc/Highlighting.hs b/Text/Pandoc/Highlighting.hs index 6fcb9cb8b..f9d69f2c2 100644 --- a/Text/Pandoc/Highlighting.hs +++ b/Text/Pandoc/Highlighting.hs @@ -47,10 +47,10 @@ highlightHtml (_, classes, keyvals) rawCode = Just _ -> [OptNumberLines] lcLanguages = map (map toLower) languages in case find (\c -> (map toLower c) `elem` lcLanguages) classes of - Nothing -> Left "Unknown or unsupported language" - Just lang -> case highlightAs lang rawCode of - Left err -> Left err - Right hl -> Right $ formatAsXHtml fmtOpts lang hl + Nothing -> Left "Unknown or unsupported language" + Just language -> case highlightAs language rawCode of + Left err -> Left err + Right hl -> Right $ formatAsXHtml fmtOpts language hl #else defaultHighlightingCss :: String -- cgit v1.2.3