-- time_stamp.
--
module TSN.XML.Injuries (
+ dtd,
pickle_message,
-- * Tests
injuries_tests,
import Data.Typeable ( Typeable )
import Database.Groundhog (
countAll,
- executeRaw,
+ deleteAll,
migrate,
runMigration,
silentMigrationLogger )
unsafe_unpickle )
+
+-- | The DTD to which this module corresponds. Used to invoke dbimport.
+--
+dtd :: String
+dtd = "injuriesxml.dtd"
+
--
-- DB/XML Data types
--
migrate a
migrate b
_ <- dbimport inj
- -- No idea how 'delete' works, so do this instead.
- executeRaw False "DELETE FROM injuries;" []
+ deleteAll a
count_a <- countAll a
count_b <- countAll b
return $ count_a + count_b