diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-03-02 21:30:29 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-03-02 21:30:29 +0000 |
| commit | 04e3b98e5206bbd808d0868cbc96904d35433176 (patch) | |
| tree | 41b49ab5d40518d9963c2980bf14ec636b233ad8 /compiler | |
| parent | 9579fd5d69a031cf8726aa8d5ce8b031dcbaca6f (diff) | |
| download | haskell-04e3b98e5206bbd808d0868cbc96904d35433176.tar.gz | |
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!
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/main/CodeOutput.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/CodeOutput.lhs b/compiler/main/CodeOutput.lhs index 817d789a93..1b7871ca8d 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 |