setClosureClass :: Text -> CodeGen ()
setClosureClass clName = do
  modClass <- getModClass
  let qClName = qualifiedName modClass clName
  modify $ \s -> s { cgClassName = qClName }

-- NOTE: Changes made to class generation state are forgotten after
--       the body is executed
setClosureClass :: Text -> CodeGen ()
setClosureClass clName = do
  modClass <- getModClass
  let qClName = qualifiedName modClass clName
  modify $ \s -> s { cgClassName = qClName }

-- NOTE: Changes made to class generation state are forgotten after
--       the body is executed
setClosureClass clName = do
  modClass <- getModClass
  let qClName = qualifiedName modClass clName
  modify $ \s -> s { cgClassName = qClName }

-- NOTE: Changes made to class generation state are forgotten after
--       the body is executed