我想將傳入值序列化爲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
這裏是JSON對象的一部分，它表示用戶： { "image": { "url": "http://example.com" } }
我需要將其解析爲User類型： data User = User { imgUrl :: Maybe Text }
天真溶液： parseJSON (Object o) = User <$> getImgUrl o
where getImgUrl o
我有幾個數據類型代表一個應用程序的狀態。在數據類型的不同位置，我嵌入了函數或單向操作，例如。 data Foo = Foo Int (ActionM String)
data Bar = Bar Foo (Maybe Bar) (ActionM())
我需要將這些數據類型的大部分編碼爲json，因此我可以將它發送到瀏覽器進行顯示。使用deriveJSON（來自Aeson包）不起作用，因爲無法