@@ -207,18 +207,18 @@ parseFormatSpec = parse formatSpec ""
207207data Reader = StringReader (ReaderOptions -> String -> IO (Either PandocError Pandoc))
208208 | ByteStringReader (ReaderOptions -> BL.ByteString -> IO (Either PandocError (Pandoc,MediaBag)))
209209
210−mkStringReader :: (ReaderOptions -> String -> (Either PandocError Pandoc)) -> Reader
210+mkStringReader :: (ReaderOptions -> String -> Either PandocError Pandoc) -> Reader
211211mkStringReader r = StringReader (\o s -> return $ r o s)
212212
213213mkStringReaderWithWarnings :: (ReaderOptions -> String -> Either PandocError (Pandoc, [String])) -> Reader
214−mkStringReaderWithWarnings r = StringReader $ \o s -> do
214+mkStringReaderWithWarnings r = StringReader $ \o s ->
215215 case r o s of
216216 Left err -> return $ Left err
217217 Right (doc, warnings) -> do
218218 mapM_ warn warnings
219219 return (Right doc)
220220
221−mkBSReader :: (ReaderOptions -> BL.ByteString -> (Either PandocError (Pandoc, MediaBag))) -> Reader
221+mkBSReader :: (ReaderOptions -> BL.ByteString -> Either PandocError (Pandoc, MediaBag)) -> Reader
222222mkBSReader r = ByteStringReader (\o s -> return $ r o s)
223223
224224-- | Association list of formats and readers.
@@ -330,7 +330,7 @@ getDefaultExtensions _ = Set.fromList [Ext_auto_identifiers]
330330getReader :: String -> Either String Reader
331331getReader s =
332332 case parseFormatSpec s of
333− Left e -> Left $ intercalate "\n" $ [m | Message m <- errorMessages e]
333+ Left e -> Left $ intercalate "\n" [m | Message m <- errorMessages e]
334334 Right (readerName, setExts) ->
335335 case lookup readerName readers of
336336 Nothing -> Left $ "Unknown reader: " ++ readerName
@@ -345,7 +345,7 @@ getReader s =
345345getWriter :: String -> Either String Writer
346346getWriter s
347347 = case parseFormatSpec s of
348− Left e -> Left $ intercalate "\n" $ [m | Message m <- errorMessages e]
348+ Left e -> Left $ intercalate "\n" [m | Message m <- errorMessages e]
349349 Right (writerName, setExts) ->
350350 case lookup writerName writers of
351351 Nothing -> Left $ "Unknown writer: " ++ writerName