Rename sourcePlugin to the right name

src/Development/IDE/Core/Compile.hs

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