aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-11-01 13:12:50 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-11-01 13:12:59 +0300
commit512732db7b1a5be9a84c6d9d52ece77fb7339cae (patch)
tree665ff29076dbb5be861e3360349fe5d0cbd86df4
parent3b9d4edcfc90f19e09b2af1923b27e8a0de3da7b (diff)
downloadpandoc-512732db7b1a5be9a84c6d9d52ece77fb7339cae.tar.gz
Make `uri` accept any stream with Char tokens
-rw-r--r--src/Text/Pandoc/Parsing.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs
index 14a77b415..9251333ce 100644
--- a/src/Text/Pandoc/Parsing.hs
+++ b/src/Text/Pandoc/Parsing.hs
@@ -580,7 +580,7 @@ uriScheme :: Stream s m Char => ParserT s st m String
uriScheme = oneOfStringsCI (Set.toList schemes)
-- | Parses a URI. Returns pair of original and URI-escaped version.
-uri :: Monad m => ParserT [Char] st m (String, String)
+uri :: Stream s m Char => ParserT s st m (String, String)
uri = try $ do
scheme <- uriScheme
char ':'