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

diff --git a/src/Backend.hs b/src/Backend.hs
index 0de431e..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
@@ -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