diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2017-08-28 17:33:59 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2017-08-29 09:37:11 +0100 |
| commit | a6c448b403dbe8720178ca82100f34baedb1f47e (patch) | |
| tree | 957d36a85d5f361c34df5f826e96a2132ce51991 /compiler/iface/TcIface.hs | |
| parent | 8eead4de7c820e602193d6d16acd00faeffa035c (diff) | |
| download | haskell-a6c448b403dbe8720178ca82100f34baedb1f47e.tar.gz | |
Small refactor of getRuntimeRep
Instead of using a string argument, use HasDebugCallStack.
(Oddly, some functions were using both!)
Plus, use getRuntimeRep rather than getRuntimeRep_maybe when
if the caller panics on Nothing. Less code, and a better debug
stack.
Diffstat (limited to 'compiler/iface/TcIface.hs')
| -rw-r--r-- | compiler/iface/TcIface.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/iface/TcIface.hs b/compiler/iface/TcIface.hs index 9e0616518f..d17e2351e3 100644 --- a/compiler/iface/TcIface.hs +++ b/compiler/iface/TcIface.hs @@ -1404,7 +1404,7 @@ tcIfaceExpr (IfaceTuple sort args) ; let con_tys = map exprType args' some_con_args = map Type con_tys ++ args' con_args = case sort of - UnboxedTuple -> map (Type . getRuntimeRep "tcIfaceExpr") con_tys ++ some_con_args + UnboxedTuple -> map (Type . getRuntimeRep) con_tys ++ some_con_args _ -> some_con_args -- Put the missing type arguments back in con_id = dataConWorkId (tyConSingleDataCon tc) |