X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;ds=sidebyside;f=src%2FTSN%2FXML%2FNews.hs;h=78dc935ca6d3ab1e3e4947cc6a5ae0e23fbf97bb;hb=84cf25190eeb5c2059cf6b9aea47e0f2bb073188;hp=ea1378725e82e1cce381c83a9c8ea4b8c477ca4a;hpb=0ddc996d5622f138953ad027cc425713a276b46a;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/XML/News.hs b/src/TSN/XML/News.hs
index ea13787..78dc935 100644
--- a/src/TSN/XML/News.hs
+++ b/src/TSN/XML/News.hs
@@ -469,7 +469,14 @@ test_news_fields_have_correct_names =
       map (\x -> tsn_db_field_namer "herp" "derp" 8675309 x 90210) field_names
 
     actual :: [String]
-    actual = ["mid", "sport", "url", "sms", "editor", "text", "continue"]
+    actual = ["xml_file_id",
+              "mid",
+              "sport",
+              "url",
+              "sms",
+              "editor",
+              "text",
+              "continue"]
 
     check (x,y) = (x @?= y)