diff options
| author | Ben Lippmeier <benl@ouroborus.net> | 2010-11-26 04:29:50 +0000 |
|---|---|---|
| committer | Ben Lippmeier <benl@ouroborus.net> | 2010-11-26 04:29:50 +0000 |
| commit | fff1f6194c3c39de53cd645bda9865fb131b1c68 (patch) | |
| tree | fb5001f4aea608f92da955b0700ee63d4e96fb78 | |
| parent | d70f8919d9fde9bf0ec1438cafb617588400e09c (diff) | |
| download | haskell-fff1f6194c3c39de53cd645bda9865fb131b1c68.tar.gz | |
vectoriser: fix warning
| -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 |