diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-08-30 03:52:25 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-08-30 03:52:25 +0000 |
| commit | ee79af08084c320762b6b684e2ce8198395cf089 (patch) | |
| tree | e831ea36c1a8f57bc13c4b0e34231cf964b6c335 /compiler/vectorise/VectUtils.hs | |
| parent | 49dca6ac4a383c6dd699263f96c2f65959782128 (diff) | |
| download | haskell-ee79af08084c320762b6b684e2ce8198395cf089.tar.gz | |
Fix vectorisation of sum type constructors
Diffstat (limited to 'compiler/vectorise/VectUtils.hs')
| -rw-r--r-- | compiler/vectorise/VectUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/vectorise/VectUtils.hs b/compiler/vectorise/VectUtils.hs index b9c4597c0a..958c5e6fd7 100644 --- a/compiler/vectorise/VectUtils.hs +++ b/compiler/vectorise/VectUtils.hs @@ -68,7 +68,7 @@ isAnnTypeArg (_, AnnType t) = True isAnnTypeArg _ = False mkDataConTag :: DataCon -> CoreExpr -mkDataConTag dc = mkConApp intDataCon [mkIntLitInt $ dataConTag dc] +mkDataConTag = mkIntLitInt . dataConTag splitUnTy :: String -> Name -> Type -> Type splitUnTy s name ty |