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 0de431e60ce29aa6a223ce9916110c6b596c6cee..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
@@ -13,4 +17,6 @@ data Backend = Sqlite | Postgres
                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