diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-09-15 23:12:23 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-09-15 23:12:23 +0100 |
| commit | 7b8a17ad3c0792f06ffa991e9e587f5458610a3c (patch) | |
| tree | dee39c0e55dbfb3b030f151ac6701414989ab054 | |
| parent | 5bae803a18b17bdb158a7780e6b6ac3c520e5b39 (diff) | |
| download | haskell-7b8a17ad3c0792f06ffa991e9e587f5458610a3c.tar.gz | |
Print literal integers in External Core.
| -rw-r--r-- | compiler/coreSyn/MkExternalCore.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/coreSyn/MkExternalCore.lhs b/compiler/coreSyn/MkExternalCore.lhs index d05da2a420..21037088e1 100644 --- a/compiler/coreSyn/MkExternalCore.lhs +++ b/compiler/coreSyn/MkExternalCore.lhs @@ -229,7 +229,8 @@ make_lit dflags l = MachWord64 i -> C.Lint i t MachFloat r -> C.Lrational r t MachDouble r -> C.Lrational r t - _ -> error "MkExternalCore died: make_lit" + LitInteger i _ -> C.Lint i t + _ -> pprPanic "MkExternalCore died: make_lit" (ppr l) where t = make_ty dflags (literalType l) |