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 =
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)
......
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