From: Michael Orlitzky Date: Tue, 21 Jan 2014 19:00:22 +0000 (-0500) Subject: Fix an error message in TSN.XML.Heartbeat. X-Git-Tag: 0.0.1~9 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=9e7a88c851c605a4e8b79b788ab78bca50b919c1;p=dead%2Fhtsn-import.git Fix an error message in TSN.XML.Heartbeat. --- diff --git a/src/TSN/XML/Heartbeat.hs b/src/TSN/XML/Heartbeat.hs index a3a1693..b01e6fb 100644 --- a/src/TSN/XML/Heartbeat.hs +++ b/src/TSN/XML/Heartbeat.hs @@ -63,7 +63,7 @@ verify :: XmlTree -> IO ImportResult verify xml = do let root_element = unpickleDoc pickle_message xml return $ case root_element of - Nothing -> ImportFailed "Could not unpickle document in import_generic." + Nothing -> ImportFailed "Could not unpickle document to be verified." Just _ -> ImportSkipped "Heartbeat received. Thump." --