Fix more do-block indentation detected by GHC 9.2.1

B-Lang-org · Nov 12, 2021 · 53c4c78 · 53c4c78
1 parent a7bd79e
commit 53c4c78
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/comp/IExpand.hs b/src/comp/IExpand.hs
@@ -2650,12 +2650,12 @@ evalUH e = do
               _ -> do e'' <- toHeapWHNFInferName "eval-uh" (pExprToHExpr pe)
                       return (e'', pe)
           _ -> do
-          pe' <- unheap pe
-          when (doTraceHeapAlloc && isRef e0) $
-              traceM ("wasted re-heap 2: " ++ ppReadable (e, e0, pe'))
-          e' <- toHeapWHNFInferName "eval-uh" (pExprToHExpr pe)
-          -- could use isRef here to preserve the original reference
-          return (e', pe')
+            pe' <- unheap pe
+            when (doTraceHeapAlloc && isRef e0) $
+                traceM ("wasted re-heap 2: " ++ ppReadable (e, e0, pe'))
+            e' <- toHeapWHNFInferName "eval-uh" (pExprToHExpr pe)
+            -- could use isRef here to preserve the original reference
+            return (e', pe')
 
 -- Like evalUH, but check for implicit conditions.
 -- This is used to evaluate static exprs: