+-- * VTeam / HTeam
+
+-- | A wrapper around 'Team' that lets us distinguish between home and
+-- away teams. See also 'HTeam'. \"V\" (visiting) was chosen instead
+-- of \"A\" (away) simply because \"vteam" looks better than
+-- \"ateam\". This is purely for type-safety.
+--
+newtype VTeam = VTeam { vteam :: Team } deriving (Eq, Show)
+
+
+-- | A wrapper around 'Team' that lets us distinguish between home and
+-- away teams. See also 'VTeam'. This is purely for type-safety.
+--
+newtype HTeam = HTeam { hteam :: Team } deriving (Eq, Show)
+
+
+-- * Database stuff
+