gistfile1.hs

data DesignData = DesignData {
    getName :: Text,
    getAge :: Int
} deriving Show

instance FromJSON DesignData where
    parseJSON (Object obj) =
        DesignData <$>
        obj .: "name" <*>
        obj .: "age"
    parseJSON _ = mzero
    
createDesign :: Handler Value
createDesign = do
    uid <- requireAuthId
    payload <- requireJsonBody :: Handler DesignData
    now <- liftIO getCurrentTime
    designId <- runDB $ insert $ Design uid (getName payload) (getAge payload) now
    return $ object ["id" .= designId]