phân tích cú pháp utctime với aeson

Question

Tôi không thể nhận được aeson để phân tích giá trị UTCTime. Tôi cố gắng để mã hóa một và ăn nó trở lại, nhưng điều đó không làm việc:

Prelude Data.Aeson Data.Time.Clock> getCurrentTime >>= (print . encode) 
"\"2013-10-17T09:42:49.007Z\"" 
Prelude Data.Aeson Data.Time.Clock> decode "2013-10-17T09:42:49.007Z" :: Maybe UTCTime 
Nothing 
Prelude Data.Aeson Data.Time.Clock> decode "\"2013-10-17T09:42:49.007Z\"" :: Maybe UTCTime 
Nothing 

Các FromJSON thể hiện của loại UTCTime là như sau (ref):

instance FromJSON UTCTime where 
    parseJSON = withText "UTCTime" $ \t -> 
     case parseTime defaultTimeLocale "%FT%T%QZ" (unpack t) of 
      Just d -> pure d 
      _  -> fail "could not parse ISO-8601 date" 

sau mô tả định dạng tìm thấy here, mọi thứ sẽ ổn. Tôi đang thiếu gì?

Answer 1

Prelude Data.Aeson Data.Time> decode (encode [x]) :: Maybe [UTCTime] 
Just [2013-10-17 10:06:59.542 UTC] 

Lưu ý là "cạm bẫy" trong haddocks:

Lưu ý rằng các tiêu chuẩn JSON đòi hỏi rằng giá trị cấp cao nhất được hoặc một mảng hoặc một đối tượng. Nếu bạn cố gắng sử dụng giải mã với một kết quả kiểu đó không được thể hiện trong JSON như một mảng hoặc đối tượng, mã của bạn sẽ typecheck, nhưng nó sẽ luôn luôn "thất bại" trong thời gian chạy:

...

Vì vậy, dính vào các đối tượng (ví dụ như bản đồ trong Haskell) hoặc mảng (danh sách hoặc vectơ trong Haskell):