X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FXML%2FEarlyLine.hs;h=26625e748b2dec6d769ea0be068c5b9b3962b644;hb=253d9c8dc02a342aaba98459b6b6cc811ddc7724;hp=627238f92bfbf280eb02b764be45f20c6b0fff5d;hpb=84b0b8621593800f0fba275b86ad9f9961a07530;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/XML/EarlyLine.hs b/src/TSN/XML/EarlyLine.hs
index 627238f..26625e7 100644
--- a/src/TSN/XML/EarlyLine.hs
+++ b/src/TSN/XML/EarlyLine.hs
@@ -36,7 +36,10 @@ import Text.XML.HXT.Core (
 -- Local imports.
 import TSN.Codegen ( tsn_codegen_config )
 import TSN.DbImport ( DbImport(..) )
-import TSN.Picklers ( xp_time_stamp )
+import TSN.Picklers (
+  xp_ambiguous_time,
+  xp_early_line_date,
+  xp_time_stamp )
 import TSN.XmlImport ( XmlImport(..) )
 import Xml (
   FromXml(..),
@@ -244,7 +247,7 @@ pickle_date :: PU EarlyLineDateXml
 pickle_date =
   xpElem "date" $
     xpWrap (from_tuple, to_tuple) $
-    xpTriple (xpAttr "value" undefined)
+    xpTriple (xpAttr "value" xp_early_line_date)
              (xpElem "note" xpText)
              pickle_game
   where
@@ -256,7 +259,7 @@ pickle_game :: PU EarlyLineGameXml
 pickle_game =
   xpElem "game" $
     xpWrap (from_tuple, to_tuple) $
-    xp4Tuple (xpElem "time" undefined)
+    xp4Tuple (xpElem "time" xp_ambiguous_time)
              pickle_away_team
              pickle_home_team
              (xpElem "over_under" xpText)