@@ -69,7 +69,7 @@ readMuse :: PandocMonad m
69 -> m Pandoc
69 -> m Pandoc
70readMuse opts s = do
70readMuse opts s = do
71 let input = crFilter s
71 let input = crFilter s
72− res <- mapLeft (PandocParsecError $ unpack input) `liftM` (runReaderT (runParserT parseMuse def{ museOptions = opts } "source" input) def)
72+ res <- mapLeft (PandocParsecError $ unpack input) `liftM` runReaderT (runParserT parseMuse def{ museOptions = opts } "source" input) def
73 case res of
73 case res of
74 Left e -> throwError e
74 Left e -> throwError e
75 Right d -> return d
75 Right d -> return d