withSelfLoop :: SelfLoopInfo -> CodeGen a -> CodeGen a
withSelfLoop selfLoopInfo =
  local (\env -> env { cgSelfLoop = Just selfLoopInfo })
withSelfLoop :: SelfLoopInfo -> CodeGen a -> CodeGen a
withSelfLoop selfLoopInfo =
  local (\env -> env { cgSelfLoop = Just selfLoopInfo })
withSelfLoop selfLoopInfo =
  local (\env -> env { cgSelfLoop = Just selfLoopInfo })