Source

haskellblog / src / Blog / Comment.hs

Luke Plant 5626918 
Luke Plant b2553eb 

Luke Plant 4f671bc 
Luke Plant 346d78e 
Luke Plant 5626918 

Luke Plant b2553eb 
Luke Plant f6e31d3 

Luke Plant d575fe1 
Luke Plant f6e31d3 
Luke Plant 346d78e 

Luke Plant 8854e48 

Luke Plant 4f671bc 
Luke Plant 275e0a1 
Luke Plant 346d78e 
Luke Plant 5626918 
{-# LANGUAGE DeriveDataTypeable #-}
module Blog.Comment where

import Blog.Formats (Format)
import qualified Data.ByteString.Lazy as LB
import Data.Data
import Data.Typeable

data Comment = Comment {
      uid :: Int
    , postId :: Int
    , timestamp :: Int
    , name :: LB.ByteString
    , email :: LB.ByteString
    , textRaw :: LB.ByteString
    , textFormatted :: LB.ByteString
    , format :: Format
    , hidden :: Bool
    , response :: LB.ByteString
    } deriving (Show, Eq, Data, Typeable)