From: Michael Orlitzky <michael@orlitzky.com>
Date: Thu, 2 Jan 2014 05:12:41 +0000 (-0500)
Subject: Use 'def' in a few places where default values are required.
X-Git-Tag: 0.0.1~122
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=a1edb885c755aac52e805255382dda50f6664b60;p=dead%2Fhtsn-import.git

Use 'def' in a few places where default values are required.
---

diff --git a/src/TSN/XML/News.hs b/src/TSN/XML/News.hs
index ad106d3..6612792 100644
--- a/src/TSN/XML/News.hs
+++ b/src/TSN/XML/News.hs
@@ -30,6 +30,7 @@ import Database.Groundhog.Core ( DefaultKey )
 import Database.Groundhog.TH (
   groundhog,
   mkPersist )
+import System.Console.CmdArgs.Default ( Default(..) )
 import Test.Tasty ( TestTree, testGroup )
 import Test.Tasty.HUnit ( (@?=), testCase )
 import Text.XML.HXT.Core (
@@ -171,23 +172,23 @@ instance ToFromXml Message where
   -- used our named fields.
   to_xml (Message {..}) =
     MessageXml
-      0
-      ""
+      def
+      def
       db_mid
-      ""
+      def
       db_sport
       db_url
-      []
-      []
+      def
+      def
       db_sms
       db_text
       db_continue
-      ""
+      def
 
   -- We don't need the key argument (from_xml_fk) since the XML type
   -- contains more information in this case.
-  from_xml (MessageXml _ _ c _ e f _ _ g h i _) =
-    Message c e f g h i
+  from_xml (MessageXml _ _ c _ e f _ _ i j k _) =
+    Message c e f i j k
 
 
 mkPersist tsn_codegen_config [groundhog|