One more

Author: psfinaki

src/Compiler/Service/service.fs

@@ -116,13 +116,8 @@ module CompileHelpers =
         use unwindParsePhase = PushThreadBuildPhaseUntilUnwind BuildPhase.Parse
         use unwindEL_2 = PushDiagnosticsLoggerPhaseUntilUnwind(fun _ -> diagnosticsLogger)
 
-        let exiter =
-            { new Exiter with
-                member x.Exit n = raise StopProcessing
-            }
-
         try
-            f exiter
+            f DiagnosticsLogger.QuitProcessExiter
             0
         with e ->
             stopProcessingRecovery e range0