bamboo-2009.4.22: src/Bamboo/Type/Pager.hs

module Bamboo.Type.Pager where

import Data.Default

data Pager = Pager {
  length :: Int,
  current :: Int,
  has_next :: Bool,
  has_previous :: Bool,
  next :: Int,
  previous :: Int
  }
  deriving (Eq, Show)

instance Default Bool where
  def = False
  
instance Default Pager where
  def = Pager def def def def def def