From: Michael Orlitzky <michael@orlitzky.com>
Date: Sun, 1 Jun 2014 04:11:37 +0000 (-0400)
Subject: Use a UTCTime for the Heartbeat timestamp.
X-Git-Tag: 0.0.6~253
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=22ef5496c109815e1c97d9350181b4a96145fb94;p=dead%2Fhtsn-import.git

Use a UTCTime for the Heartbeat timestamp.
---

diff --git a/src/TSN/XML/Heartbeat.hs b/src/TSN/XML/Heartbeat.hs
index 89b91ad..8fafba1 100644
--- a/src/TSN/XML/Heartbeat.hs
+++ b/src/TSN/XML/Heartbeat.hs
@@ -10,6 +10,7 @@ module TSN.XML.Heartbeat (
 where
 
 -- System imports.
+import Data.Time.Clock ( UTCTime )
 import Data.Tuple.Curry ( uncurryN )
 import Test.Tasty ( TestTree, testGroup )
 import Test.Tasty.HUnit ( (@?=), testCase )
@@ -25,6 +26,7 @@ import Text.XML.HXT.Core (
 
 -- Local imports.
 import TSN.DbImport ( ImportResult(..) )
+import TSN.Picklers ( xp_time_stamp )
 import Xml ( pickle_unpickle, unpickleable )
 
 
@@ -40,7 +42,7 @@ data Message =
   Message {
     xml_file_id :: Int,
     heading :: String,
-    time_stamp :: String }
+    time_stamp :: UTCTime }
   deriving (Eq, Show)
 
 
@@ -53,7 +55,7 @@ pickle_message =
     xpWrap (from_tuple, to_tuple) $
     xpTriple (xpElem "XML_File_ID" xpInt)
              (xpElem "heading" xpText)
-             (xpElem "time_stamp" xpText)
+             (xpElem "time_stamp" xp_time_stamp)
   where
     from_tuple = uncurryN Message
     to_tuple m = (xml_file_id m,