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

diff --git a/src/TSN/XML/Weather.hs b/src/TSN/XML/Weather.hs
index 2f3a3ca..2bcb736 100644
--- a/src/TSN/XML/Weather.hs
+++ b/src/TSN/XML/Weather.hs
@@ -80,7 +80,7 @@ import Xml (
   ToDb(..),
   pickle_unpickle,
   unpickleable,
-  unsafe_read_document,
+  unsafe_read_invalid_document,
   unsafe_unpickle )
 
 
@@ -743,7 +743,7 @@ test_types_detected_correctly =
             False ]
   where
     check path desc expected = testCase desc $ do
-      xmltree <- unsafe_read_document path
+      xmltree <- unsafe_read_invalid_document path
       let actual = is_type1 xmltree
       actual @?= expected
 
@@ -764,6 +764,6 @@ test_normal_teams_detected_correctly =
           False ]
   where
     check desc path expected = testCase desc $ do
-      xmltree <- unsafe_read_document path
+      xmltree <- unsafe_read_invalid_document path
       let actual = teams_are_normal xmltree
       actual @?= expected