Style fix.

diku-dk · Aug 16, 2023 · 35f6a1e · 35f6a1e
1 parent b145c0d
commit 35f6a1e
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/src/Futhark/Pass/ExtractKernels/Intragroup.hs b/src/Futhark/Pass/ExtractKernels/Intragroup.hs
@@ -203,12 +203,10 @@ intraGroupStm stm@(Let pat aux e) = do
 
   case e of
     Loop merge form loopbody ->
-      localScope (scopeOf form') $
-        localScope (scopeOfFParams $ map fst merge) $ do
-          loopbody' <- intraGroupBody loopbody
-          certifying (stmAuxCerts aux) $
-            letBind pat $
-              Loop merge form' loopbody'
+      localScope (scopeOf form' <> scopeOfFParams (map fst merge)) $ do
+        loopbody' <- intraGroupBody loopbody
+        certifying (stmAuxCerts aux) . letBind pat $
+          Loop merge form' loopbody'
       where
         form' = case form of
           ForLoop i it bound inps -> ForLoop i it bound inps