Разбор utctime с aeson - программирование

Я не могу заставить aeson проанализировать значение UTCTime. Я попытался закодировать один и подать его обратно, но это не сработало:

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

Экземпляр FromJSON типа UTCTime следующий (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"

после описания формата, найденного здесь, все должно быть в порядке. Что мне не хватает?

Ответ 1