--- | The database type for teams as they show up in the news.
-data NewsTeam =
- NewsTeam { team_name :: String }
- deriving (Eq, Show)
-
-instance FromXml NewsTeam where
- type Db NewsTeam = NewsTeam
- from_xml = id
-
-instance XmlImport NewsTeam
-
-
--- | Mapping between News records and NewsTeam records in the
--- database. We name the fields (even though they're never used) for
--- Groundhog's benefit.
-data News_NewsTeam =
- News_NewsTeam {
- nnt_news_id :: DefaultKey News,
- nnt_news_team_id :: DefaultKey NewsTeam }
-
--- | The database type for locations as they show up in the news.
-data NewsLocation =
- NewsLocation {
- city :: Maybe String,
- state :: Maybe String,
- country :: String }
- deriving (Eq, Show)
-
-instance FromXml NewsLocation where
- type Db NewsLocation = NewsLocation
- from_xml = id
-
-instance XmlImport NewsLocation
-
-
--- | Mapping between News records and NewsLocation records in the
--- database. We name the fields (even though they're never used) for
--- Groundhog's benefit.
-data News_NewsLocation =
- News_NewsLocation {
- nnl_news_id :: DefaultKey News,
- nnl_news_location_id :: DefaultKey NewsLocation }
-