[Git][ghc/ghc][wip/decode_cloned_stack] Reformat

[Sven Tennie (@supersven)]

Sven Tennie pushed to branch wip/decode_cloned_stack at Glasgow Haskell Compiler / GHC


Commits:
314d46f0 by Sven Tennie at 2023-01-28T17:43:25+00:00
Reformat

- - - - -


1 changed file:

- libraries/ghc-heap/tests/stack_misc_closures.hs


Changes:

=====================================
libraries/ghc-heap/tests/stack_misc_closures.hs
=====================================
@@ -17,7 +17,6 @@ import Debug.Trace
 import GHC.Exts
 import GHC.Exts.DecodeStack
 import GHC.Exts.Heap
-import GHC.Exts.Heap (GenClosure (wordVal), HasHeapRep (getClosureData))
 import GHC.Exts.Heap.Closures
 import GHC.IO (IO (..))
 import GHC.Stack (HasCallStack)
@@ -271,10 +270,11 @@ main = do
             assertArrWordsClosure [1] =<< getBoxedClosureData instrs
             assertArrWordsClosure [2] =<< getBoxedClosureData literals
             assertMutArrClosure [3] =<< getBoxedClosureData bcoptrs
-            assertEqual [
-                1, -- StgLargeBitmap size in words
+            assertEqual
+              [ 1, -- StgLargeBitmap size in words
                 0 -- StgLargeBitmap first words
-              ] bitmap
+              ]
+              bitmap
           e -> error $ "Wrong closure type: " ++ show e
       e -> error $ "Wrong closure type: " ++ show e
   testSize any_bco_frame# 3
@@ -350,7 +350,7 @@ assertMutArrClosure :: HasCallStack => [Word] -> Closure -> IO ()
 assertMutArrClosure wds c = case c of
   MutArrClosure {..} -> do
     assertEqual (tipe info) MUT_ARR_PTRS_FROZEN_CLEAN
-    xs <-mapM getBoxedClosureData mccPayload
+    xs <- mapM getBoxedClosureData mccPayload
     assertEqual wds $ map getWordFromConstr01 xs
   e -> error $ "Wrong closure type: " ++ show e
 



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/314d46f097fd37e404962ef489ba5bd36352f137

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/314d46f097fd37e404962ef489ba5bd36352f137
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20230128/7a97de29/attachment-0001.html>