import Control.Monad ( join )
import Data.Time ( UTCTime(..) )
import Data.Tuple.Curry ( uncurryN )
import Control.Monad ( join )
import Data.Time ( UTCTime(..) )
import Data.Tuple.Curry ( uncurryN )
import TSN.Codegen ( tsn_codegen_config )
import TSN.DbImport ( DbImport(..), ImportResult(..), run_dbmigrate )
import TSN.Picklers (
xp_ambiguous_time,
import TSN.Codegen ( tsn_codegen_config )
import TSN.DbImport ( DbImport(..), ImportResult(..), run_dbmigrate )
import TSN.Picklers (
xp_ambiguous_time,
xml_time_stamp :: UTCTime }
deriving (Eq, GHC.Generic, Show)
xml_time_stamp :: UTCTime }
deriving (Eq, GHC.Generic, Show)
date_games_with_notes :: [EarlyLineGameWithNote] }
deriving (Eq, GHC.Generic, Show)
date_games_with_notes :: [EarlyLineGameWithNote] }
deriving (Eq, GHC.Generic, Show)
xp7Tuple (xpElem "XML_File_ID" xpInt)
(xpElem "heading" xpText)
(xpElem "category" xpText)
xp7Tuple (xpElem "XML_File_ID" xpInt)
(xpElem "heading" xpText)
(xpElem "category" xpText)
pickle_team :: PU EarlyLineGameTeamXml
pickle_team =
xpWrap (from_tuple, to_tuple') $
pickle_team :: PU EarlyLineGameTeamXml
pickle_team =
xpWrap (from_tuple, to_tuple') $
[ check "pickle composed with unpickle is the identity"
"test/xml/earlylineXML.xml",
[ check "pickle composed with unpickle is the identity"
"test/xml/earlylineXML.xml",
[ check "unpickling succeeds"
"test/xml/earlylineXML.xml",
[ check "unpickling succeeds"
"test/xml/earlylineXML.xml",
[ check "deleting early_lines deletes its children"
"test/xml/earlylineXML.xml",
[ check "deleting early_lines deletes its children"
"test/xml/earlylineXML.xml",