@@ -6,7 +6,6 @@ import Text.Pandoc.Builder
66import Text.Pandoc
77import Tests.Helpers
88import Tests.Arbitrary()
9−import Text.Highlighting.Kate (languages) -- null if no hl support
109
1110html :: (ToString a, ToPandoc a) => a -> String
1211html = writeHtmlString def{ writerWrapText = False } . toPandoc
@@ -32,9 +31,7 @@ tests :: [Test]
3231tests = [ testGroup "inline code"
3332 [ "basic" =: code "@&" =?> "<code>@&</code>"
3433 , "haskell" =: codeWith ("",["haskell"],[]) ">>="
35− =?> if null languages
36− then "<code class=\"haskell\">>>=</code>"
37− else "<code class=\"sourceCode haskell\"><span class=\"fu\">>>=</span></code>"
34+ =?> "<code class=\"haskell\">>>=</code>"
3835 , "nolanguage" =: codeWith ("",["nolanguage"],[]) ">>="
3936 =?> "<code class=\"nolanguage\">>>=</code>"
4037 ]