From 84cf25190eeb5c2059cf6b9aea47e0f2bb073188 Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 21 Jan 2014 13:54:00 -0500
Subject: [PATCH] Fix a News test.

---
 src/TSN/XML/News.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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)
 
-- 
2.43.2