@@ -272,7 +272,7 @@ parseFileContents
272 -> FilePath -- ^ the filename (for source locations)
272 -> FilePath -- ^ the filename (for source locations)
273 -> Maybe SB.StringBuffer -- ^ Haskell module source text (full Unicode is supported)
273 -> Maybe SB.StringBuffer -- ^ Haskell module source text (full Unicode is supported)
274 -> ExceptT [FileDiagnostic] m ([FileDiagnostic], ParsedModule)
274 -> ExceptT [FileDiagnostic] m ([FileDiagnostic], ParsedModule)
275−parseFileContents preprocessor filename mbContents = do
275+parseFileContents sourcePlugin filename mbContents = do
276 let loc = mkRealSrcLoc (mkFastString filename) 1 1
276 let loc = mkRealSrcLoc (mkFastString filename) 1 1
277 contents <- liftIO $ maybe (hGetStringBuffer filename) return mbContents
277 contents <- liftIO $ maybe (hGetStringBuffer filename) return mbContents
278 let isOnDisk = isNothing mbContents
278 let isOnDisk = isNothing mbContents
@@ -318,7 +318,7 @@ parseFileContents preprocessor filename mbContents = do
318 throwE $ diagFromErrMsgs "parser" dflags $ snd $ getMessages pst dflags
318 throwE $ diagFromErrMsgs "parser" dflags $ snd $ getMessages pst dflags
320 -- Ok, we got here. It's safe to continue.
320 -- Ok, we got here. It's safe to continue.
321− let (errs, parsed) = preprocessor rdr_module
321+ let (errs, parsed) = sourcePlugin rdr_module
322 unless (null errs) $ throwE $ diagFromStrings "parser" errs
322 unless (null errs) $ throwE $ diagFromStrings "parser" errs
323 ms <- getModSummaryFromBuffer filename contents dflags parsed
323 ms <- getModSummaryFromBuffer filename contents dflags parsed