@@ -272,7 +272,7 @@ parseFileContents
272272 -> FilePath -- ^ the filename (for source locations)
273273 -> Maybe SB.StringBuffer -- ^ Haskell module source text (full Unicode is supported)
274274 -> ExceptT [FileDiagnostic] m ([FileDiagnostic], ParsedModule)
275−parseFileContents preprocessor filename mbContents = do
275+parseFileContents sourcePlugin filename mbContents = do
276276 let loc = mkRealSrcLoc (mkFastString filename) 1 1
277277 contents <- liftIO $ maybe (hGetStringBuffer filename) return mbContents
278278 let isOnDisk = isNothing mbContents
@@ -318,7 +318,7 @@ parseFileContents preprocessor filename mbContents = do
318318 throwE $ diagFromErrMsgs "parser" dflags $ snd $ getMessages pst dflags
319319
320320 -- Ok, we got here. It's safe to continue.
321− let (errs, parsed) = preprocessor rdr_module
321+ let (errs, parsed) = sourcePlugin rdr_module
322322 unless (null errs) $ throwE $ diagFromStrings "parser" errs
323323 ms <- getModSummaryFromBuffer filename contents dflags parsed
324324 let pm =