-- a root element \<message\> that contains an entire news item.
--
module TSN.XML.News (
+ dtd,
pickle_message,
-- * Tests
news_tests,
unsafe_unpickle )
+-- | The DTD to which this module corresponds. Used to invoke dbimport.
+--
+dtd :: String
+dtd = "newsxml.dtd"
+
+
--
-- DB/XML Data types
--
-- use our own codegen to peel those off before naming the columns.
mkPersist tsn_codegen_config [groundhog|
- entity: News
- dbName: news
constructors:
- name: News
uniques: