diff options
| author | Mark Wright <[email protected]> | 2015-01-05 14:41:54 +1100 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2015-04-15 08:43:33 -0700 |
| commit | 7d379fff2783e8d1a55ed9bee2eacdcbc2eb6d7c (patch) | |
| tree | 63e70938d4171088e393935b5a0d6fa387fb1146 | |
| parent | 2211ecce234369caf002f79c1e70b7edac765485 (diff) | |
ghc 7.10.1 RC1 requires specifying the type of String literals https://ghc.haskell.org/trac/ghc/wiki/Migration/7.10#GHCsaysNoinstanceforFoldable...arisingfromtheuseof...
| -rw-r--r-- | src/Text/Pandoc/Writers/ConTeXt.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs index ebdc4a3d3..edfb4d0ff 100644 --- a/src/Text/Pandoc/Writers/ConTeXt.hs +++ b/src/Text/Pandoc/Writers/ConTeXt.hs @@ -119,7 +119,7 @@ stringToConTeXt opts = concatMap (escapeCharForConTeXt opts) toLabel :: String -> String toLabel z = concatMap go z where go x - | elem x "\\#[]\",{}%()|=" = "ux" ++ printf "%x" (ord x) + | elem x ("\\#[]\",{}%()|=" :: String) = "ux" ++ printf "%x" (ord x) | otherwise = [x] -- | Convert Elements to ConTeXt |