тут просто такая штука:
singletonTree :: k -> IO (DescTree k)
singletonTree key = Node Null Null key <$> getNext
getNext можно запускать только в контексте со StateT
Обсуждают сегодня