Question

我有以下形式的JSON日期数据：

  {"date": "2015-04-12"}

和相应的haskell类型：

data Date = Date {
      year   :: Int
    , month  :: Int
    , day    :: Int
    }

如何编写自定义FromJSON和ToJSON函数 Aeson图书馆？由于格式化，派生实例不起作用。

Answer 1

为什么重新发明轮子？您在time包中调用Date的内容有一个半标准的表示形式 - 称为Day。它变得更好：不仅相同的包甚至为您提供了从您拥有的格式解析Day的实用程序，这些实用程序甚至会导出到aeson。是的，ToJSON FromJSON中已有aeson和Day个实例：

ghci> :set -XOverloadedStrings
ghci> import Data.Time.Calendar
ghci> import Data.Aeson
ghci> fromJSON "2015-04-12" :: Result Day
Success 2015-04-12
ghci> toJSON (fromGregorian 2015 4 12)
String "2015-04-12"

如果确实想要提取日期，月份和年份，您可以随时使用toGregorian :: Day -> (Integer, Int, Int)。坚持标准抽象可能是一个很好的长期选择。

Answer 2

您已将y / m / d转换为/来自字符串

{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-tabs #-}

import Control.Monad
import Data.Aeson
import qualified Data.Text as T
import Text.Read (readMaybe)
-- import qualified Data.Attoparsec.Text as A

data Date = Date Int Int Int deriving (Read, Show)

instance ToJSON Date where
    toJSON (Date y m d) = toJSON $ object [
        "date" .= T.pack (str 4 y ++ "-" ++ str 2 m ++ "-" ++ str 2 d)]
        where
            str n = pad . show where
                pad s = replicate (n - length s) '0' ++ s

instance FromJSON Date where
    parseJSON = withObject "date" $ \v -> do
        str <- v .: "date"
        let
            ps@(~[y, m, d]) = T.split (== '-') str
        guard (length ps == 3)
        Date <$> readNum y <*> readNum m <*> readNum d
        where
            readNum = maybe (fail "not num") return . readMaybe . T.unpack

    -- -- or with attoparsec
    -- parseJSON = withObject "date" $ \v -> do
    --  str <- v .: "date"
    --  [y, m, d] <- either fail return $
    --      A.parseOnly (A.decimal `A.sepBy` A.char '-') str
    --  return $ Date y m d

在Aeson中编写JSON日期数据的自定义实例

2 个答案: