[commit: ghc] master: Make codeOutput panic if hscTarget is HscInterpreted (04e3b98)

[Ian Lynagh]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/04e3b98e5206bbd808d0868cbc96904d35433176

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

commit 04e3b98e5206bbd808d0868cbc96904d35433176
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sat Mar 2 21:30:29 2013 +0000

    Make codeOutput panic if hscTarget is HscInterpreted
    
    Doesn't look like it causes any failures in the full test suite, so
    presumably it's fine!

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

 compiler/main/CodeOutput.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/main/CodeOutput.lhs b/compiler/main/CodeOutput.lhs
index 817d789..1b7871c 100644
--- a/compiler/main/CodeOutput.lhs
+++ b/compiler/main/CodeOutput.lhs
@@ -74,10 +74,10 @@ codeOutput dflags this_mod location foreign_stubs pkg_deps cmm_stream
         ; let filenm = hscOutName dflags 
         ; stubs_exist <- outputForeignStubs dflags this_mod location foreign_stubs
         ; case hscTarget dflags of {
-             HscInterpreted -> return ();
              HscAsm         -> outputAsm dflags filenm linted_cmm_stream;
              HscC           -> outputC dflags filenm linted_cmm_stream pkg_deps;
              HscLlvm        -> outputLlvm dflags filenm linted_cmm_stream;
+             HscInterpreted -> panic "codeOutput: HscInterpreted";
              HscNothing     -> panic "codeOutput: HscNothing"
           }
         ; return stubs_exist