-- | Find storage in state
getStorageInternal :: StorageId -> LambdaCubeEnv t -> IO (Maybe GLStorage)
getStorageInternal i LambdaCubeEnv{..} = M.lookup i . snd <$> readIORef lambdaEnvStorages
getStorageInternal :: StorageId -> LambdaCubeEnv t -> IO (Maybe GLStorage)
getStorageInternal i LambdaCubeEnv{..} = M.lookup i . snd <$> readIORef lambdaEnvStorages
getStorageInternal i LambdaCubeEnv{..} = M.lookup i . snd <$> readIORef lambdaEnvStorages