Allow "TBA" laps in TSN.XML.AutoRacingSchedule.

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

diff --git a/src/Backend.hs b/src/Backend.hs
index 04cf6ca3854891a8d9a9947567f2bf88d8ee7b79..2ba9ba9f854363e83ead7435bde6bbed436df418 100644 (file)
--- a/src/Backend.hs
+++ b/src/Backend.hs
@@ -1,5 +1,9 @@
 {-# LANGUAGE DeriveDataTypeable #-}
 
+-- | Definition of the 'Backend' type representing the database
+--   backends we support. We should be able to support anything that
+--   Groundhog does.
+--
 module Backend (
   Backend(..) )
 where
@@ -10,7 +14,9 @@ import System.Console.CmdArgs.Default ( Default(..) )
 
 -- | An enumeration type for the allowed database backends.
 data Backend = Sqlite | Postgres
-               deriving (Data, Read, Show, Typeable)
+               deriving (Data, Eq, Read, Show, Typeable)
 
 instance Default Backend where
+  -- | The default 'Backend' is 'Sqlite' because it is the simplest,
+  --   and can run in memory.
   def = Sqlite