Retab GHC.HeapView
authorJoachim Breitner <mail@joachim-breitner.de>
Tue, 7 Jun 2016 11:31:08 +0000 (13:31 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Tue, 7 Jun 2016 11:31:08 +0000 (13:31 +0200)
src/GHC/HeapView.hs

index a0ec14b..1828f48 100644 (file)
@@ -207,72 +207,72 @@ sizeOfPointee addr = sizeOf (typeHack addr)
    <http://hackage.haskell.org/trac/ghc/browser/includes/rts/storage/ClosureTypes.h>
  -}
 data ClosureType =
-         INVALID_OBJECT
-       | CONSTR
-       | CONSTR_1_0
-       | CONSTR_0_1
-       | CONSTR_2_0
-       | CONSTR_1_1
-       | CONSTR_0_2
-       | CONSTR_STATIC
-       | CONSTR_NOCAF_STATIC
-       | FUN
-       | FUN_1_0
-       | FUN_0_1
-       | FUN_2_0
-       | FUN_1_1
-       | FUN_0_2
-       | FUN_STATIC
-       | THUNK
-       | THUNK_1_0
-       | THUNK_0_1
-       | THUNK_2_0
-       | THUNK_1_1
-       | THUNK_0_2
-       | THUNK_STATIC
-       | THUNK_SELECTOR
-       | BCO
-       | AP
-       | PAP
-       | AP_STACK
-       | IND
-       | IND_PERM
-       | IND_STATIC
-       | RET_BCO
-       | RET_SMALL
-       | RET_BIG
+          INVALID_OBJECT
+        | CONSTR
+        | CONSTR_1_0
+        | CONSTR_0_1
+        | CONSTR_2_0
+        | CONSTR_1_1
+        | CONSTR_0_2
+        | CONSTR_STATIC
+        | CONSTR_NOCAF_STATIC
+        | FUN
+        | FUN_1_0
+        | FUN_0_1
+        | FUN_2_0
+        | FUN_1_1
+        | FUN_0_2
+        | FUN_STATIC
+        | THUNK
+        | THUNK_1_0
+        | THUNK_0_1
+        | THUNK_2_0
+        | THUNK_1_1
+        | THUNK_0_2
+        | THUNK_STATIC
+        | THUNK_SELECTOR
+        | BCO
+        | AP
+        | PAP
+        | AP_STACK
+        | IND
+        | IND_PERM
+        | IND_STATIC
+        | RET_BCO
+        | RET_SMALL
+        | RET_BIG
 #ifndef GHC_7_7
-       | RET_DYN
+        | RET_DYN
 #endif
-       | RET_FUN
-       | UPDATE_FRAME
-       | CATCH_FRAME
-       | UNDERFLOW_FRAME
-       | STOP_FRAME
-       | BLOCKING_QUEUE
-       | BLACKHOLE
-       | MVAR_CLEAN
-       | MVAR_DIRTY
+        | RET_FUN
+        | UPDATE_FRAME
+        | CATCH_FRAME
+        | UNDERFLOW_FRAME
+        | STOP_FRAME
+        | BLOCKING_QUEUE
+        | BLACKHOLE
+        | MVAR_CLEAN
+        | MVAR_DIRTY
 #ifdef GHC_7_7
-       | TVAR
+        | TVAR
 #endif
-       | ARR_WORDS
-       | MUT_ARR_PTRS_CLEAN
-       | MUT_ARR_PTRS_DIRTY
-       | MUT_ARR_PTRS_FROZEN0
-       | MUT_ARR_PTRS_FROZEN
-       | MUT_VAR_CLEAN
-       | MUT_VAR_DIRTY
-       | WEAK
-       | PRIM
-       | MUT_PRIM
-       | TSO
-       | STACK
-       | TREC_CHUNK
-       | ATOMICALLY_FRAME
-       | CATCH_RETRY_FRAME
-       | CATCH_STM_FRAME
-       | WHITEHOLE
+        | ARR_WORDS
+        | MUT_ARR_PTRS_CLEAN
+        | MUT_ARR_PTRS_DIRTY
+        | MUT_ARR_PTRS_FROZEN0
+        | MUT_ARR_PTRS_FROZEN
+        | MUT_VAR_CLEAN
+        | MUT_VAR_DIRTY
+        | WEAK
+        | PRIM
+        | MUT_PRIM
+        | TSO
+        | STACK
+        | TREC_CHUNK
+        | ATOMICALLY_FRAME
+        | CATCH_RETRY_FRAME
+        | CATCH_STM_FRAME
+        | WHITEHOLE
  deriving (Show, Eq, Enum, Ord)
 
 {-| This is the main data type of this module, representing a Haskell value on