src/Backend.hs

   1 {-# LANGUAGE DeriveDataTypeable #-}
   2
   3 module Backend (
   4   Backend(..) )
   5 where
   6
   7 import Data.Data ( Data )
   8 import Data.Typeable ( Typeable )
   9 import System.Console.CmdArgs.Default ( Default(..) )
  10
  11 -- | An enumeration type for the allowed database backends.
  12 data Backend = Sqlite | Postgres
  13                deriving (Data, Read, Show, Typeable)
  14
  15 instance Default Backend where
  16   def = Sqlite