{-# LANGUAGE DeriveGeneric #-}moduleModel.Json.User(User(..))whereimportGHC.GenericsimportData.AesonimportData.Text(Text)importModel.Database(UserId)dataUser=User{id::UserId,name::Text,email::Text}deriving(Show,Generic)instanceFromJSONUserinstanceToJSONUser