@@ -408,7 +408,7 @@ emailAddress = try $ toResult <$> mailbox <*> (char '@' *> domain)
408408
409409
410410-- Schemes from http://www.iana.org/assignments/uri-schemes.html plus
411−-- the unofficial schemes coap, doi, javascript.
411+-- the unofficial schemes coap, doi, javascript, isbn, pmid
412412schemes :: [String]
413413schemes = ["coap","doi","javascript","aaa","aaas","about","acap","cap","cid",
414414 "crid","data","dav","dict","dns","file","ftp","geo","go","gopher",
@@ -430,7 +430,7 @@ schemes = ["coap","doi","javascript","aaa","aaas","about","acap","cap","cid",
430430 "rtmp","secondlife","sftp","sgn","skype","smb","soldat","spotify",
431431 "ssh","steam","svn","teamspeak","things","udp","unreal","ut2004",
432432 "ventrilo","view-source","webcal","wtai","wyciwyg","xfire","xri",
433− "ymsgr"]
433+ "ymsgr", "isbn", "pmid"]
434434
435435uriScheme :: Stream s m Char => ParserT s st m String
436436uriScheme = oneOfStringsCI schemes