happs-tutorial-0.3: src/UserState.hs

{-# OPTIONS_GHC -XDeriveDataTypeable #-}
{-# LANGUAGE TemplateHaskell #-}
module UserState where
import HAppS.State
import Data.Generics
-- import Data.Typeable
--import Control.Monad.Reader
--import Control.Monad.State

data User = User {                                                                          
  username :: String,                                                                       
  password :: String
} deriving (Show,Read,Typeable,Data)

instance Version User

$(deriveSerialize ''User)