diff options
| author | Ben Lippmeier <benl@ouroborus.net> | 2011-11-15 14:41:15 +1100 |
|---|---|---|
| committer | Ben Lippmeier <benl@ouroborus.net> | 2011-11-15 14:41:15 +1100 |
| commit | 295e050d27457e42cd2cc2d14e09df0cd0ae9995 (patch) | |
| tree | 8f7eb83058edfdd5710a1feac23af94df775bd04 /compiler/vectorise/Vectorise/Generic/PData.hs | |
| parent | 2bc999c69d2245514f65cbc8f9b98be64a42f091 (diff) | |
| download | haskell-295e050d27457e42cd2cc2d14e09df0cd0ae9995.tar.gz | |
vectoriser: make PA PDatas instances for prod types work
Diffstat (limited to 'compiler/vectorise/Vectorise/Generic/PData.hs')
| -rw-r--r-- | compiler/vectorise/Vectorise/Generic/PData.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/compiler/vectorise/Vectorise/Generic/PData.hs b/compiler/vectorise/Vectorise/Generic/PData.hs index d9e4ff0c10..f10afff972 100644 --- a/compiler/vectorise/Vectorise/Generic/PData.hs +++ b/compiler/vectorise/Vectorise/Generic/PData.hs @@ -79,7 +79,7 @@ buildPDatasTyCon orig_tc vect_tc repr = fixV $ \repr_tc -> do name' <- mkLocalisedName mkPDatasTyConOcc orig_name rhs <- buildPDatasTyConRhs orig_name vect_tc repr_tc repr - Just pdatas <- builtin pdatasTyCon + pdatas <- builtin pdatasTyCon liftDs $ buildAlgTyCon name' tyvars @@ -106,10 +106,7 @@ buildPDatasDataCon orig_name vect_tc repr_tc repr = do let tvs = tyConTyVars vect_tc dc_name <- mkLocalisedName mkPDatasDataConOcc orig_name - let mkPDatasType' t - = mkPDatasType t >>= (\(Just t') -> return t') - - comp_tys <- mkSumTys mkPDatasType' repr + comp_tys <- mkSumTys mkPDatasType repr liftDs $ buildDataCon dc_name False -- not infix |