我有几个数据类型代表一个应用程序的状态。在数据类型的不同位置,我嵌入了函数或单向操作,例如。 data Foo = Foo Int (ActionM String)
data Bar = Bar Foo (Maybe Bar) (ActionM())
我需要将这些数据类型的大部分编码为json,因此我可以将它发送到浏览器进行显示。使用deriveJSON(来自Aeson包)不起作用,因为无法
我想将传入值序列化为JSON。每个值都有一个toJSON实例。最终结果应该是一个列表。当前的代码如下: import Pipes
import qualified Pipes.Prelude as P
-- assume a source of elements
main :: IO()
main = runEffect $ source >-> P.map encode >-> P.s