diff options
Diffstat (limited to 'compiler/GHC/HsToCore/Binds.hs')
| -rw-r--r-- | compiler/GHC/HsToCore/Binds.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/HsToCore/Binds.hs b/compiler/GHC/HsToCore/Binds.hs index 5e01bc7a8f..8e54489f1e 100644 --- a/compiler/GHC/HsToCore/Binds.hs +++ b/compiler/GHC/HsToCore/Binds.hs @@ -182,7 +182,7 @@ dsHsBind dflags b@(FunBind { fun_id = L loc fun return (force_var, [core_binds]) } dsHsBind dflags (PatBind { pat_lhs = pat, pat_rhs = grhss - , pat_ext = NPatBindTc _ ty + , pat_ext = ty , pat_ticks = (rhs_tick, var_ticks) }) = do { rhss_deltas <- checkGRHSs PatBindGuards grhss ; body_expr <- dsGuarded grhss ty rhss_deltas |