From 14fd553fe17c7b5d94996990492e6a54acc48544 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Thu, 31 Jul 2008 06:35:58 +0000
Subject: [PATCH] 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(-)
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