diff options
| author | Mark Wright <gienah@gentoo.org> | 2015-01-05 14:46:15 +1100 |
|---|---|---|
| committer | Mark Wright <gienah@gentoo.org> | 2015-01-05 14:46:15 +1100 |
| commit | 8b9bded796b76a3f343c4cc1b8bb04a4b293ff55 (patch) | |
| tree | 74be0f9561b609afed8a9dc41848c72c17550947 /src/Text/Pandoc/Writers/LaTeX.hs | |
| parent | e4c7894d013d403e877df080a6e61b47bd51b7e5 (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...
Diffstat (limited to 'src/Text/Pandoc/Writers/LaTeX.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 3698d275c..eb514698a 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -240,7 +240,7 @@ toLabel z = go `fmap` stringToLaTeX URLString z where go [] = "" go (x:xs) | (isLetter x || isDigit x) && isAscii x = x:go xs - | elem x "-+=:;." = x:go xs + | elem x ("-+=:;." :: String) = x:go xs | otherwise = "ux" ++ printf "%x" (ord x) ++ go xs -- | Puts contents into LaTeX command. |