diff options
| -rw-r--r-- | compiler/vectorise/Vectorise/Type/PADict.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/compiler/vectorise/Vectorise/Type/PADict.hs b/compiler/vectorise/Vectorise/Type/PADict.hs index a15f671352..6c94ae0258 100644 --- a/compiler/vectorise/Vectorise/Type/PADict.hs +++ b/compiler/vectorise/Vectorise/Type/PADict.hs @@ -54,7 +54,6 @@ buildPADict vect_tc prepr_tc arr_tc repr -- Build the type of the dictionary function. pa_tc <- builtin paTyCon - let pa_opitems = [(id, NoDefMeth) | id <- method_ids] let Just pa_cls = tyConClass_maybe pa_tc let dfun_ty = mkForAllTys tvs |