X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhtsn-import.git;a=blobdiff_plain;f=src%2FTSN%2FXML%2FNews.hs;fp=src%2FTSN%2FXML%2FNews.hs;h=77dc74a7f880e4d84e7602a91a4a05d2716f8d06;hp=645d1daf1e786e1779e231c672094ce9da2c4754;hb=928a90109375caaa888ae4413151b560838948b7;hpb=d3bb3071996f2591ca3c282e3b240d471784c813

diff --git a/src/TSN/XML/News.hs b/src/TSN/XML/News.hs
index 645d1da..77dc74a 100644
--- a/src/TSN/XML/News.hs
+++ b/src/TSN/XML/News.hs
@@ -80,7 +80,7 @@ import Xml (
   ToDb(..),
   pickle_unpickle,
   unpickleable,
-  unsafe_read_document,
+  unsafe_read_invalid_document,
   unsafe_unpickle )
 
 
@@ -574,6 +574,6 @@ test_sms_detected_correctly =
             False ]
   where
     check path desc expected = testCase desc $ do
-      xmltree <- unsafe_read_document path
+      xmltree <- unsafe_read_invalid_document path
       let actual = has_only_single_sms xmltree
       actual @?= expected