Fix a News test.

diff --git a/src/TSN/XML/News.hs b/src/TSN/XML/News.hs
index ea1378725e82e1cce381c83a9c8ea4b8c477ca4a..78dc935ca6d3ab1e3e4947cc6a5ae0e23fbf97bb 100644 (file)
--- 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)