parsowanie utctime z aesonem

Question

Nie mogę uzyskać eseonu do przeanalizowania wartości UTCTime. Próbowałem kodować jeden i karmić je z powrotem, ale to nie działa:

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 

Instancja FromJSON typu UTCTime jest następujący (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" 

następujący opis formatu znalezionego here, wszystko powinno być w porządku. czego mi brakuje?

Answer 1

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

Uwaga rozdział „pułapek” w haddocks:

Należy zauważyć, że średnia JSON wymaga wartość najwyższego poziomu być tablicą lub obiektem. Jeśli spróbujesz użyć dekodować z wynikiem typu, które nie są reprezentowane w JSON jako tablica lub obiekt, Twój kod będzie typecheck, ale zawsze „nie” przy starcie:

...

Tak trzymać się obiektów (np mapy w Haskell) lub tablic (list lub wektorów w Haskell):