newLabel :: CodeGen Label
newLabel = do
  next <- peekNextLabel
  modify $ \s@CgState { cgNextLabel } ->
             s { cgNextLabel = cgNextLabel + 1}
  return $ mkLabel next
newLabel :: CodeGen Label
newLabel = do
  next <- peekNextLabel
  modify $ \s@CgState { cgNextLabel } ->
             s { cgNextLabel = cgNextLabel + 1}
  return $ mkLabel next
newLabel = do
  next <- peekNextLabel
  modify $ \s@CgState { cgNextLabel } ->
             s { cgNextLabel = cgNextLabel + 1}
  return $ mkLabel next