Commit 7b8a17ad authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Print literal integers in External Core.

parent 5bae803a
...@@ -229,7 +229,8 @@ make_lit dflags l = ...@@ -229,7 +229,8 @@ make_lit dflags l =
MachWord64 i -> C.Lint i t MachWord64 i -> C.Lint i t
MachFloat r -> C.Lrational r t MachFloat r -> C.Lrational r t
MachDouble 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 where
t = make_ty dflags (literalType l) t = make_ty dflags (literalType l)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment