m
> % stack --version
> Version 2.5.1, Git revision d6ab861544918185236cf826cb2028abb266d6d5 x86_64 hpack-0.33.0
Size: a a a
JS
JS
ЗП
JS
JS
MK
MK
ЗП
JS
MK
ЗП
MK
m
type PostgresT m = ReaderT Connection (StateT TxState m) -- Убрал RWST
type TxState = HMap TxStateKeySpace
data TxStateKeySpace
data HMap keySpace where
HMap :: Map Text (PropertyValue keySpace) -> HMap keySpace
data PropertyValue keySpace where
PropertyValue :: (IsKeySpaceProperty keySpace name t) => Key keySpace name t -> t -> PropertyValue keySpace
MonadUnliftIO StateT просто через MVar перебросить?JS
JS