diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-22 13:21:44 -0800 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-22 13:24:43 -0800 |
commit | fca95bf43c16f19466df26c7875a5c8be144b77e (patch) | |
tree | 950a13926dc260b2e53ea80ea73d04a408bed41f /src/Tests | |
parent | f61e09cb9a67e13deee5c48ac815e03f79989817 (diff) |
Removed highlighting flag. Highlighting support is now standard.
Diffstat (limited to 'src/Tests')
-rw-r--r-- | src/Tests/Old.hs | 6 |
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 = |