-import Generics.Regular
-import Database.Persist.TH
-import Text.XML.HXT.Core
-
-share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
-Listing
- team String
- teamno Int
- injuries String
- updated Bool
- deriving Show
-
-Message
- xml_file_id Int
- heading String
- category String
- sport String
- listings [Listing]
- time_stamp String
- deriving Show
+import Data.Tuple.Curry ( uncurryN )
+import Database.Groundhog()
+import Database.Groundhog.TH (
+ defaultCodegenConfig,
+ groundhog,
+ mkPersist )
+import Test.Tasty ( TestTree, testGroup )
+import Test.Tasty.HUnit ( (@?=), testCase )
+import Text.XML.HXT.Core (
+ PU,
+ XmlPickler(..),
+ xp4Tuple,
+ xp6Tuple,
+ xpElem,
+ xpList,
+ xpPrim,
+ xpText,
+ xpWrap )
+
+
+import TSN.DbImport ( DbImport(..), import_generic )
+import Xml ( pickle_unpickle )
+
+
+data Listing =
+ Listing {
+ team :: String,
+ teamno :: Int,
+ injuries :: String,
+ updated :: Bool }
+ deriving (Eq, Show)
+
+data Message =
+ Message {
+ xml_file_id :: Int,
+ heading :: String,
+ category :: String,
+ sport :: String,
+ listings :: [Listing],
+ time_stamp :: String }
+ deriving (Eq, Show)
+
+
+mkPersist defaultCodegenConfig [groundhog|
+- entity: Listing
+ dbName: injuries