summaryrefslogtreecommitdiff
path: root/src/Tests/Old.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2011-12-22 13:21:44 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2011-12-22 13:24:43 -0800
commitfca95bf43c16f19466df26c7875a5c8be144b77e (patch)
tree950a13926dc260b2e53ea80ea73d04a408bed41f /src/Tests/Old.hs
parentf61e09cb9a67e13deee5c48ac815e03f79989817 (diff)
Removed highlighting flag. Highlighting support is now standard.
Diffstat (limited to 'src/Tests/Old.hs')
-rw-r--r--src/Tests/Old.hs6
1 files changed, 1 insertions, 5 deletions
diff --git a/src/Tests/Old.hs b/src/Tests/Old.hs
index 71a198ca1..1ec32a30d 100644
--- a/src/Tests/Old.hs
+++ b/src/Tests/Old.hs
@@ -13,7 +13,6 @@ import Data.Algorithm.Diff
import Text.Pandoc.Shared ( normalize, defaultWriterOptions )
import Text.Pandoc.Writers.Native ( writeNative )
import Text.Pandoc.Readers.Native ( readNative )
-import Text.Pandoc.Highlighting ( languages )
import Prelude hiding ( readFile )
import qualified Data.ByteString.Lazy as B
import Data.ByteString.Lazy.UTF8 (toString)
@@ -121,10 +120,7 @@ lhsWriterTests format
]
where
t n f = test n ["--columns=78", "-r", "native", "-s", "-w", f]
- "lhs-test.native" ("lhs-test" <.> ext f)
- ext f = if null languages && format == "html"
- then "nohl" <.> f
- else f
+ "lhs-test.native" ("lhs-test" <.> f)
lhsReaderTest :: String -> Test
lhsReaderTest format =