{-# LANGUAGE TemplateHaskell, DeriveDataTypeable, FlexibleInstances, FlexibleContexts, MultiParamTypeClasses, UndecidableInstances #-}
module Logon.Interface where

import HAppS.Data(Version,deriveAll, deriveSerialize)

$(deriveAll [''Eq, ''Ord, ''Read, ''Show]
  [d|
      data SessionData = SessionData { active :: Bool
                                     , name :: String 
                                     , greeting :: String
                                     }
   |])

$(deriveSerialize ''SessionData)
instance Version SessionData