putLabel :: Label -> Instr
putLabel l = Instr $ do
  unInstr (putLabel' l)
  writeStackMapFrame
putLabel :: Label -> Instr
putLabel l = Instr $ do
  unInstr (putLabel' l)
  writeStackMapFrame
putLabel l = Instr $ do
  unInstr (putLabel' l)
  writeStackMapFrame