From 610f18c6810edc6bb5dee5cad8bff9e8e59b408a Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Wed, 15 Jan 2014 01:09:29 -0500 Subject: [PATCH] Fix typos and use xpAttrImplies where appropriate (one case). --- src/TSN/XML/Heartbeat.hs | 2 +- src/TSN/XML/Injuries.hs | 6 +++--- src/TSN/XML/InjuriesDetail.hs | 2 +- src/TSN/XML/News.hs | 2 +- src/TSN/XML/Odds.hs | 2 +- 5 files changed, 7 insertions(+), 7 deletions(-) diff --git a/src/TSN/XML/Heartbeat.hs b/src/TSN/XML/Heartbeat.hs index 4e0ba07..a3a1693 100644 --- a/src/TSN/XML/Heartbeat.hs +++ b/src/TSN/XML/Heartbeat.hs @@ -81,7 +81,7 @@ heartbeat_tests = -- | If we unpickle something and then pickle it, we should wind up --- with the same thing we started with. WARNING: succeess of this +-- with the same thing we started with. WARNING: success of this -- test does not mean that unpickling succeeded. -- test_pickle_of_unpickle_is_identity :: TestTree diff --git a/src/TSN/XML/Injuries.hs b/src/TSN/XML/Injuries.hs index f7eba8d..94baa19 100644 --- a/src/TSN/XML/Injuries.hs +++ b/src/TSN/XML/Injuries.hs @@ -38,7 +38,7 @@ import Text.XML.HXT.Core ( PU, xp4Tuple, xp6Tuple, - xpAttr, + xpAttrImplied, xpElem, xpInt, xpList, @@ -131,7 +131,7 @@ pickle_injuries_team :: PU InjuriesTeam pickle_injuries_team = xpElem "team" $ xpWrap (from_tuple, to_tuple) $ - xpPair xpText (xpOption $ xpAttr "league" xpText) + xpPair xpText (xpAttrImplied "league" xpText) where from_tuple = uncurryN InjuriesTeam to_tuple m = (team_name m, team_league m) @@ -189,7 +189,7 @@ injuries_tests = -- | If we unpickle something and then pickle it, we should wind up --- with the same thing we started with. WARNING: succeess of this +-- with the same thing we started with. WARNING: success of this -- test does not mean that unpickling succeeded. -- test_pickle_of_unpickle_is_identity :: TestTree diff --git a/src/TSN/XML/InjuriesDetail.hs b/src/TSN/XML/InjuriesDetail.hs index d857bda..7d7c19f 100644 --- a/src/TSN/XML/InjuriesDetail.hs +++ b/src/TSN/XML/InjuriesDetail.hs @@ -216,7 +216,7 @@ injuries_detail_tests = -- | If we unpickle something and then pickle it, we should wind up --- with the same thing we started with. WARNING: succeess of this +-- with the same thing we started with. WARNING: success of this -- test does not mean that unpickling succeeded. -- test_pickle_of_unpickle_is_identity :: TestTree diff --git a/src/TSN/XML/News.hs b/src/TSN/XML/News.hs index 6e10aed..20b3a1c 100644 --- a/src/TSN/XML/News.hs +++ b/src/TSN/XML/News.hs @@ -426,7 +426,7 @@ test_news_fields_have_correct_names = -- | If we unpickle something and then pickle it, we should wind up --- with the same thing we started with. WARNING: succeess of this +-- with the same thing we started with. WARNING: success of this -- test does not mean that unpickling succeeded. -- test_pickle_of_unpickle_is_identity :: TestTree diff --git a/src/TSN/XML/Odds.hs b/src/TSN/XML/Odds.hs index bbed4af..10d34a4 100644 --- a/src/TSN/XML/Odds.hs +++ b/src/TSN/XML/Odds.hs @@ -673,7 +673,7 @@ odds_tests = -- | If we unpickle something and then pickle it, we should wind up --- with the same thing we started with. WARNING: succeess of this +-- with the same thing we started with. WARNING: success of this -- test does not mean that unpickling succeeded. -- test_pickle_of_unpickle_is_identity :: TestTree -- 2.43.2