-- that league contains a bunch of listings.
--
module TSN.XML.Weather (
+ dtd,
pickle_message,
-- * Tests
weather_tests,
import Data.Tuple.Curry ( uncurryN )
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 = "weatherxml.dtd"
+
+
--
-- DB/XML Data types
--
migrate b
migrate c
_ <- dbimport weather
- -- No idea how 'delete' works, so do this instead.
- executeRaw False "DELETE FROM weather;" []
+ deleteAll a
count_a <- countAll a
count_b <- countAll b
count_c <- countAll c