@@ -8,6 +8,7 @@ import GHC.Generics
88import Data.Binary
99import Control.DeepSeq
1010
11+--create various database value (atom) types
1112addressAtomType :: AtomType
1213addressAtomType = TextAtomType
1314
@@ -46,6 +47,7 @@ speedBandAtomType = ConstructedAtomType "SpeedBand" M.empty
4647
4748main :: IO ()
4849main = do
50+ --connect to the database
4951 let connInfo = InProcessConnectionInfo NoPersistence emptyNotificationCallback []
5052 check x = case x of
5153 Left err -> error (show err)
@@ -53,6 +55,7 @@ main = do
5355 eConn <- connectProjectM36 connInfo
5456 let conn = check eConn
5557
58+ --create a database session at the default branch of the fresh database
5659 eSessionId <- createSessionAtHead "master" conn
5760 let sessionId = check eSessionId
5861