diff options
Diffstat (limited to 'compiler/vectorise/Vectorise/Vect.hs')
| -rw-r--r-- | compiler/vectorise/Vectorise/Vect.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/vectorise/Vectorise/Vect.hs b/compiler/vectorise/Vectorise/Vect.hs index b64f956185..fac1ab46f4 100644 --- a/compiler/vectorise/Vectorise/Vect.hs +++ b/compiler/vectorise/Vectorise/Vect.hs @@ -19,7 +19,7 @@ module Vectorise.Vect , vCaseDEFAULT ) where - + import CoreSyn import Type ( Type ) import Var @@ -97,7 +97,7 @@ vLams :: Var -- ^ Var bound to the lifting context. -> [VVar] -- ^ Parameter vars for the abstraction. -> VExpr -- ^ Body of the abstraction. -> VExpr -vLams lc vs (ve, le) +vLams lc vs (ve, le) = (mkLams vvs ve, mkLams (lc:lvs) le) where (vvs, lvs) = unzip vs @@ -107,10 +107,10 @@ vLams lc vs (ve, le) -- The lifted version is also applied to the variable of the lifting context. -- vVarApps :: Var -> VExpr -> [VVar] -> VExpr -vVarApps lc (ve, le) vvs +vVarApps lc (ve, le) vvs = (ve `mkVarApps` vs, le `mkVarApps` (lc : ls)) where - (vs, ls) = unzip vvs + (vs, ls) = unzip vvs vCaseDEFAULT :: VExpr -- scrutiniy |