panda-2008.10.25: src/Panda/Type/Pager.hs

module Panda.Type.Pager where
  
data Pager = Pager {
  length :: Int,
  current :: Int,
  has_next :: Bool,
  has_previous :: Bool,
  next :: Int,
  previous :: Int
  }
  deriving (Eq, Show)
  
empty = Pager 0 0 False False 0 0