-- real meat.
--
module TSN.XML.InjuriesDetail (
+ dtd,
pickle_message,
-- * Tests
injuries_detail_tests,
import Database.Groundhog (
DefaultKey,
countAll,
- executeRaw,
+ deleteAll,
migrate,
runMigration,
silentMigrationLogger )
unsafe_unpickle )
+
+-- | The DTD to which this module corresponds. Used to invoke dbimport.
+--
+dtd :: String
+dtd = "Injuries_Detail_XML.dtd"
+
+
--
-- Data types
--
migrate b
migrate c
_ <- dbimport inj
- -- No idea how 'delete' works, so do this instead.
- executeRaw False "DELETE FROM injuries_detail;" []
+ deleteAll a
count_a <- countAll a
count_b <- countAll b
count_c <- countAll c