@@ -337,7 +337,7 @@ convertWithOpts opts = do
338 else optTabStop opts)
338 else optTabStop opts)
340− readSources :: MonadIO m => [FilePath] -> m String
340+ readSources :: (Functor m, MonadIO m) => [FilePath] -> m String
341 readSources srcs = convertTabs . intercalate "\n" <$>
341 readSources srcs = convertTabs . intercalate "\n" <$>
342 mapM readSource srcs
342 mapM readSource srcs