module Type.User where
import Data.Aeson
import Data.JSON.Schema
import Data.Text (Text)
import Data.Typeable
import GHC.Generics
import Generics.Regular
import Generics.Regular.XmlPickler
import Text.XML.HXT.Arrow.Pickle
type Name = Text
type Password = Text
data User = User
{ name :: Name
, password :: Password
} deriving (Eq, Generic, Ord, Show, Typeable)
deriveAll ''User "PFUser"
type instance PF User = PFUser
instance XmlPickler User where xpickle = gxpickle
instance JSONSchema User where schema = gSchema
instance FromJSON User
instance ToJSON User