diff options
| author | Sven Tennie <sven.tennie@gmail.com> | 2023-01-28 17:43:25 +0000 |
|---|---|---|
| committer | Sven Tennie <sven.tennie@gmail.com> | 2023-01-28 17:43:25 +0000 |
| commit | 314d46f097fd37e404962ef489ba5bd36352f137 (patch) | |
| tree | 243e34c54ab8a6236ee0962b88c499b493829aa5 | |
| parent | 2a75318f497dcf39956bc5c83c52886c234fede4 (diff) | |
| download | haskell-314d46f097fd37e404962ef489ba5bd36352f137.tar.gz | |
Reformat
| -rw-r--r-- | libraries/ghc-heap/tests/stack_misc_closures.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libraries/ghc-heap/tests/stack_misc_closures.hs b/libraries/ghc-heap/tests/stack_misc_closures.hs index 18057c5ed3..1d8f430697 100644 --- a/libraries/ghc-heap/tests/stack_misc_closures.hs +++ b/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 |