X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FXML%2FHeartbeat.hs;h=6cc4931f2ce1f97599526fa8ac7fa589a2d113b5;hb=9fff5c185dd7a2c8655815f36b72736d61401e41;hp=c408483f6e2af23e33ade6113be0470a79752a96;hpb=da0885d061b23f99a6c9d24b6b823c4654893d9c;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/XML/Heartbeat.hs b/src/TSN/XML/Heartbeat.hs
index c408483..6cc4931 100644
--- a/src/TSN/XML/Heartbeat.hs
+++ b/src/TSN/XML/Heartbeat.hs
@@ -52,9 +52,9 @@ instance XmlPickler Message where
 verify :: XmlTree -> IO ImportResult
 verify xml = do
   let root_element = unpickleDoc xpickle xml :: Maybe Message
-  case root_element of
-    Nothing -> return $ Err "Could not unpickle document in import_generic."
-    Just _  -> return $ Info "Heartbeat received."
+  return $ case root_element of
+    Nothing -> ImportFailed "Could not unpickle document in import_generic."
+    Just _  -> ImportSkipped "Heartbeat received. Thump."
 
 -- * Tasty Tests
 heartbeat_tests :: TestTree