Fix typos and use xpAttrImplies where appropriate (one case).

diff --git a/src/TSN/XML/Heartbeat.hs b/src/TSN/XML/Heartbeat.hs
index 4e0ba07f8b3cc15c1ae13e4e18bcb94724cf0955..a3a169347385b3197f018af5d914c4b1c5a6e266 100644 (file)
--- 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 f7eba8d7a072796c08aca39a1dab9a76d3a3c586..94baa19758ad1cbf961c8a2f0a690f3763ba1538 100644 (file)
--- 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 d857bda96a9ebc763e2679367b6c42e2f544f20e..7d7c19f99d2d236716171f0a381ea0dc8ca20cb1 100644 (file)
--- 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 6e10aed9d166089d7119b543066340a28596f717..20b3a1c513da2a091680ccf4989f88ce1e218fc2 100644 (file)
--- 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 bbed4af08def3425c9ad550ba28836e60d41faf8..10d34a46cffcc4ba5c0edd1ccc53fe3209a3f9d3 100644 (file)
--- 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