YesodToJson.hs

{-# LANGUAGE RecordWildCards #-}

module Handler.Hoge where

import Import

-- ...

data Person = Person
    { name :: Text
    , age  :: Int
    }

instance ToJSON Person where
    toJSON Person {..} = object
        [ "name" .= name
        , "age"  .= age
        ]

getPersonR :: Handler Value
getPersonR = returnJson $ [Person "Michael" 28]