liftListen :: Monad m => Listen w m (a,Int) -> Listen w (UniqueT m) a
liftListen listen = UniqueT . State.liftListen listen . runUniqueT
liftListen :: Monad m => Listen w m (a,Int) -> Listen w (UniqueT m) a
liftListen listen = UniqueT . State.liftListen listen . runUniqueT
liftListen listen = UniqueT . State.liftListen listen . runUniqueT