diff options
| author | Mark Wright <gienah@gentoo.org> | 2015-01-05 14:38:06 +1100 |
|---|---|---|
| committer | Mark Wright <gienah@gentoo.org> | 2015-01-05 14:38:06 +1100 |
| commit | f18ceb1b5e9294699699f468ab9fe590b7100704 (patch) | |
| tree | c2466ee972bddb3a0fcbf4c546096321490d9048 /src/Text/Pandoc/Readers/LaTeX.hs | |
| parent | 693f9abb184c3d37864114f93d90a82c60f9ad0b (diff) | |
| download | pandoc-f18ceb1b5e9294699699f468ab9fe590b7100704.tar.gz | |
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/Readers/LaTeX.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 8b3743bca..6f3090e10 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -592,7 +592,7 @@ inNote ils = unescapeURL :: String -> String unescapeURL ('\\':x:xs) | isEscapable x = x:unescapeURL xs - where isEscapable c = c `elem` "#$%&~_^\\{}" + where isEscapable c = c `elem` ("#$%&~_^\\{}" :: String) unescapeURL (x:xs) = x:unescapeURL xs unescapeURL [] = "" @@ -1225,7 +1225,7 @@ citationLabel = optional sp *> <* optional sp <* optional (char ',') <* optional sp) - where isBibtexKeyChar c = isAlphaNum c || c `elem` ".:;?!`'()/*@_+=-[]*" + where isBibtexKeyChar c = isAlphaNum c || c `elem` (".:;?!`'()/*@_+=-[]*" :: String) cites :: CitationMode -> Bool -> LP [Citation] cites mode multi = try $ do |