{-# LANGUAGE DeriveDataTypeable #-}

module Backend (
  Backend(..) )
where

import Data.Data ( Data )
import Data.Typeable ( Typeable )
import System.Console.CmdArgs.Default ( Default(..) )

-- | An enumeration type for the allowed database backends.
data Backend = Sqlite | Postgres
               deriving (Data, Eq, Read, Show, Typeable)

instance Default Backend where
  def = Sqlite