@@ -206,6 +206,7 @@ import Data.List (intercalate, isSuffixOf, transpose)
206206import qualified Data.Map as M
207207import Data.Maybe (mapMaybe, fromMaybe)
208208import qualified Data.Set as Set
209+import Data.String
209210import Data.Text (Text)
210211import Text.HTML.TagSoup.Entity (lookupEntity)
211212import Text.Pandoc.Asciify (toAsciiChar)
@@ -458,15 +459,15 @@ stringAnyCase (x:xs) = do
458459 return (firstChar:rest)
459460
460461-- | Parse contents of 'str' using 'parser' and return result.
461−parseFromString :: Monad m
462− => ParserT [Char] st m a
462+parseFromString :: (Monad m, Stream s m Char, IsString s)
463+ => ParserT s st m r
463464 -> String
464− -> ParserT [Char] st m a
465+ -> ParserT s st m r
465466parseFromString parser str = do
466467 oldPos <- getPosition
467468 setPosition $ initialPos "chunk"
468469 oldInput <- getInput
469− setInput str
470+ setInput $ fromString str
470471 result <- parser
471472 spaces
472473 eof