diff --git a/asterius/src/Asterius/CodeGen.hs b/asterius/src/Asterius/CodeGen.hs
index e99ac19d..8a18106c 100644
--- a/asterius/src/Asterius/CodeGen.hs
+++ b/asterius/src/Asterius/CodeGen.hs
@@ -1561,6 +1561,8 @@ newtype NeedsUnreachableBlock = NeedsUnreachableBlock Bool
 marshalCmmBlockBranch ::
   GHC.CmmNode GHC.O GHC.C ->
   CodeGen ([Expression], Maybe Expression, [RelooperAddBranch], NeedsUnreachableBlock)
+  -- results: branch hwelpers, siwtch cond expr, branches, 
+
 marshalCmmBlockBranch instr = case instr of
   GHC.CmmBranch lbl -> do
     k <- marshalLabel lbl