Add a backend configuration option.

[dead/htsn-import.git] / src / Backend.hs

diff --git a/src/Backend.hs b/src/Backend.hs
new file mode 100644 (file)
index 0000000..04cf6ca
--- /dev/null
+++ b/src/Backend.hs
@@ -0,0 +1,16 @@
+{-# 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, Read, Show, Typeable)
+
+instance Default Backend where
+  def = Sqlite