From: Michael Orlitzky 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|