]> gitweb.michael.orlitzky.com - dead/htsn-import.git/blob - src/Backend.hs
Make the Scores status numeral optional.
[dead/htsn-import.git] / 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