From: keller@.cse.unsw.edu.au <unknown>
Date: Mon, 14 Feb 2011 02:05:31 +0000 (+0000)
Subject: Fixed two syntax errors
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=0a56bcf2584ac23345cff880961efe3fd14391d8

Fixed two syntax errors
---

diff --git a/compiler/vectorise/Vectorise/Exp.hs b/compiler/vectorise/Vectorise/Exp.hs
index 091a760..079e826 100644
--- a/compiler/vectorise/Vectorise/Exp.hs
+++ b/compiler/vectorise/Vectorise/Exp.hs
@@ -186,7 +186,7 @@ vectScalarLam args recFns body
         pprTrace "vectScalarLam is prim res" (ppr $ is_prim_ty res_ty) $
         pprTrace "vectScalarLam is scalar body" (ppr $ is_scalar (extendVarSetList scalars args) body) $
         pprTrace "vectScalarLam arg tys" (ppr $ arg_tys) $ -}
-        onlyIfV (all is_prim_ty arg_tys
+      onlyIfV (all is_prim_ty arg_tys
                && is_prim_ty res_ty
                && is_scalar (extendVarSetList scalars args) body
                && uses scalars body)
@@ -198,7 +198,7 @@ vectScalarLam args recFns body
             clo_var <- hoistExpr (fsLit "clo") clo DontInline
             lclo    <- liftPD (Var clo_var)
             {- pprTrace "  lam is scalar" (ppr "") $ -}
-              return (Var clo_var, lclo)
+            return (Var clo_var, lclo)
   where
     arg_tys = map idType args
     res_ty  = exprType body