к
в полном варианте это выглядит так
validatorServer :: Storage s => AppContext s -> Server API
validatorServer = …
where
blabla :: forall s a . (Tx s 'RO -> WorldVersion -> IO [a]) -> IO [a]
введя forall у validator и не вводя у blabla мы получаем переиспользование старого s


