-- | Puts storage at begining of rendering queue
renderStorageFirstInternal :: StorageId -> LambdaCubeEnv t -> IO ()
renderStorageFirstInternal i LambdaCubeEnv{..} = atomicModifyIORef lambdaEnvRenderOrder $ \m ->
  (, ()) $ i S.<| S.filter (/= i) m
renderStorageFirstInternal :: StorageId -> LambdaCubeEnv t -> IO ()
renderStorageFirstInternal i LambdaCubeEnv{..} = atomicModifyIORef lambdaEnvRenderOrder $ \m ->
  (, ()) $ i S.<| S.filter (/= i) m
renderStorageFirstInternal i LambdaCubeEnv{..} = atomicModifyIORef lambdaEnvRenderOrder $ \m ->
  (, ()) $ i S.<| S.filter (/= i) m