Comment out the DTD in Injuries_Detail_XML.xml.

[dead/htsn-import.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index 950a2a117a04915821042e94979b01f381a6e817..2ca3a83816843db631ed6a5eef56366384b4c242 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -4,11 +4,10 @@
 module Main
 where
 
-import Control.Monad.IO.Class  (liftIO)
+--import Control.Monad.IO.Class  ( liftIO )
 import Data.Maybe ( listToMaybe )
-import Database.Persist ( insert )
-import Database.Persist.Sql ( runMigration )
-import Database.Persist.Sqlite ( runSqlite )
+--import Database.Groundhog.TH
+--import Database.Groundhog.Sqlite
 import Text.Show.Pretty ( ppShow )
 import Text.XML.HXT.Core (
   SysConfigList,
@@ -22,8 +21,8 @@ import Text.XML.HXT.Core (
   xunpickleDocument,
   yes )
 
-import TSN.Injuries ( InjuriesMessage, migrate_injuries )
-
+import qualified TSN.Injuries as Injuries ( Message )
+import qualified TSN.InjuriesDetail as InjuriesDetail ( Message )
 
 parse_opts :: SysConfigList
 parse_opts =
@@ -36,19 +35,26 @@ parse_file path =
   fmap listToMaybe $
     runX ( xunpickleDocument xpickle parse_opts path )
 
-main_sql :: IO ()
-main_sql =
-  runSqlite "foo.sqlite3" $ do
-    runMigration migrate_injuries
-    msg :: Maybe InjuriesMessage <- liftIO $ parse_file
-                                               "test/xml/injuriesxml.xml"
-    case msg of
-      Nothing -> return ()
-      Just m  -> do
-        msg_id <- insert m
-        return ()
+-- main_sql :: IO ()
+-- main_sql =
+--   withSqliteConn "foo.sqlite3" $ runDbConn $ do
+--   runMigration defaultMigrationLogger $ do
+--     migrate (undefined :: Injuries.Message)
+--     migrate (undefined :: Injuries.Listing)
+
+--   msg :: Maybe Injuries.Message <- liftIO $ parse_file
+--                                                "test/xml/injuriesxml.xml"
+--   case msg of
+--     Nothing -> return ()
+--     Just m  -> do
+--       msg_id <- insert m
+--       return ()
 
 main :: IO ()
 main = do
-  msg :: Maybe InjuriesMessage <- parse_file "test/xml/injuriesxml.xml"
-  putStr $ ppShow msg
+  msg1 :: Maybe Injuries.Message <- parse_file "test/xml/injuriesxml.xml"
+  putStr $ ppShow msg1
+
+  msg2 :: Maybe InjuriesDetail.Message <- parse_file
+                                            "test/xml/Injuries_Detail_XML.xml"
+  putStr $ ppShow msg2