src/Backend.hs

   1 {-# LANGUAGE DeriveDataTypeable #-}
   2
   3 -- | Definition of the 'Backend' type representing the database
   4 --   backends we support. We should be able to support anything that
   5 --   Groundhog does.
   6 --
   7 module Backend (
   8   Backend(..) )
   9 where
  10
  11 import Data.Data ( Data )
  12 import Data.Typeable ( Typeable )
  13 import System.Console.CmdArgs.Default ( Default(..) )
  14
  15 -- | An enumeration type for the allowed database backends.
  16 data Backend = Sqlite | Postgres
  17                deriving (Data, Eq, Read, Show, Typeable)
  18
  19 instance Default Backend where
  20   -- | The default 'Backend' is 'Sqlite' because it is the simplest,
  21   --   and can run in memory.
  22   def = Sqlite