]> gitweb.michael.orlitzky.com - dead/htsn-import.git/blob - Backend.hs
04cf6ca3854891a8d9a9947567f2bf88d8ee7b79
[dead/htsn-import.git] / 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