[commit: ghc] master: doCorePass: Expand catch-all (44ba60f)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/44ba60fe9bce298cfa41c4505d029c1a2c6e5671/ghc

>---------------------------------------------------------------

commit 44ba60fe9bce298cfa41c4505d029c1a2c6e5671
Author: Simon Jakobi <simon.jakobi at gmail.com>
Date:   Fri Mar 2 16:17:12 2018 -0500

    doCorePass: Expand catch-all
    
    This doesn't remedy problem, but at least it's more explicit than
    the catch-all
    
    Reviewers: bgamari
    
    Reviewed By: bgamari
    
    Subscribers: rwbarton, thomie, carter
    
    GHC Trac Issues: #14544
    
    Differential Revision: https://phabricator.haskell.org/D4435


>---------------------------------------------------------------

44ba60fe9bce298cfa41c4505d029c1a2c6e5671
 compiler/simplCore/SimplCore.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/compiler/simplCore/SimplCore.hs b/compiler/simplCore/SimplCore.hs
index 4dfa198..0a20eb0 100644
--- a/compiler/simplCore/SimplCore.hs
+++ b/compiler/simplCore/SimplCore.hs
@@ -486,9 +486,15 @@ doCorePass (CoreDoPasses passes)        = runCorePasses passes
 
 #if defined(GHCI)
 doCorePass (CoreDoPluginPass _ pass) = {-# SCC "Plugin" #-} pass
+#else
+doCorePass pass at CoreDoPluginPass {}  = pprPanic "doCorePass" (ppr pass)
 #endif
 
-doCorePass pass = pprPanic "doCorePass" (ppr pass)
+doCorePass pass at CoreDesugar          = pprPanic "doCorePass" (ppr pass)
+doCorePass pass at CoreDesugarOpt       = pprPanic "doCorePass" (ppr pass)
+doCorePass pass at CoreTidy             = pprPanic "doCorePass" (ppr pass)
+doCorePass pass at CorePrep             = pprPanic "doCorePass" (ppr pass)
+doCorePass pass at CoreOccurAnal        = pprPanic "doCorePass" (ppr pass)
 
 {-
 ************************************************************************