X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FBackend.hs;h=2ba9ba9f854363e83ead7435bde6bbed436df418;hb=1cecab83b93656aa08ef5128b4e3bd3b6385ac8d;hp=04cf6ca3854891a8d9a9947567f2bf88d8ee7b79;hpb=9d278c8b8eeff1a1317f2c3b0f7fdf5fb759ffb3;p=dead%2Fhtsn-import.git

diff --git a/src/Backend.hs b/src/Backend.hs
index 04cf6ca..2ba9ba9 100644
--- 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