addInitStep :: Node FieldRef Code -> CodeGen ()
addInitStep code = modify $ \s@CgState{..} ->
  s { cgClassInitCode = cgClassInitCode <> [ code ] }
addInitStep :: Node FieldRef Code -> CodeGen ()
addInitStep code = modify $ \s@CgState{..} ->
  s { cgClassInitCode = cgClassInitCode <> [ code ] }
addInitStep code = modify $ \s@CgState{..} ->
  s { cgClassInitCode = cgClassInitCode <> [ code ] }