isPipelineRegisteredInternal :: PipelineId -> LambdaCubeEnv t -> IO Bool
isPipelineRegisteredInternal pid LambdaCubeEnv{..} = do
  m <- readIORef lambdaEnvPipelines
  case M.lookup pid m of
    Nothing -> return False
    Just _ -> return True

-- | Register new pipeline with renderer in module
isPipelineRegisteredInternal :: PipelineId -> LambdaCubeEnv t -> IO Bool
isPipelineRegisteredInternal pid LambdaCubeEnv{..} = do
  m <- readIORef lambdaEnvPipelines
  case M.lookup pid m of
    Nothing -> return False
    Just _ -> return True

-- | Register new pipeline with renderer in module
isPipelineRegisteredInternal pid LambdaCubeEnv{..} = do
  m <- readIORef lambdaEnvPipelines
  case M.lookup pid m of
    Nothing -> return False
    Just _ -> return True

-- | Register new pipeline with renderer in module