X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FXML%2FOdds.hs;h=7eb759b79239721c4055cf933a58dc4dc612dbab;hb=8fd79929d4e139608ecde40fc70703e0efd56f30;hp=3a508ee894c18c3ef46d10687598a2ba0f6e30f0;hpb=4cdcdbe593c30f6434a25896951a1a4dfcc2b1ca;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/XML/Odds.hs b/src/TSN/XML/Odds.hs
index 3a508ee..7eb759b 100644
--- a/src/TSN/XML/Odds.hs
+++ b/src/TSN/XML/Odds.hs
@@ -12,9 +12,8 @@
 --   unorganized crap.
 --
 module TSN.XML.Odds (
-  Odds,
-  Message,
-  odds_tests )
+  odds_tests,
+  pickle_message )
 where
 
 import Control.Monad ( forM_ )
@@ -34,7 +33,6 @@ import Test.Tasty ( TestTree, testGroup )
 import Test.Tasty.HUnit ( (@?=), testCase )
 import Text.XML.HXT.Core (
   PU,
-  XmlPickler(..),
   xp5Tuple,
   xp6Tuple,
   xp8Tuple,
@@ -404,9 +402,6 @@ pickle_casino =
                                       xml_casino_name,
                                       xml_casino_line)
 
-instance XmlPickler OddsGameCasinoXml where
-  xpickle = pickle_casino
-
 
 pickle_home_team :: PU OddsGameHomeTeamXml
 pickle_home_team =
@@ -427,8 +422,6 @@ pickle_home_team =
                                         xml_home_team_name,
                                         xml_home_casinos)
 
-instance XmlPickler OddsGameHomeTeamXml where
-  xpickle = pickle_home_team
 
 
 pickle_away_team :: PU OddsGameAwayTeamXml
@@ -451,9 +444,6 @@ pickle_away_team =
                                  xml_away_casinos)
 
 
-instance XmlPickler OddsGameAwayTeamXml where
-  xpickle = pickle_away_team
-
 
 pickle_over_under :: PU OddsGameOverUnderXml
 pickle_over_under =
@@ -464,8 +454,6 @@ pickle_over_under =
     from_newtype (OddsGameOverUnderXml cs) = cs
     to_newtype = OddsGameOverUnderXml
 
-instance XmlPickler OddsGameOverUnderXml where
-  xpickle = pickle_over_under
 
 
 pickle_game :: PU OddsGameXml
@@ -489,9 +477,6 @@ pickle_game =
                                 xml_game_home_team,
                                 xml_game_over_under)
 
-instance XmlPickler OddsGameXml where
-  xpickle = pickle_game
-
 
 pickle_message :: PU Message
 pickle_message =
@@ -517,11 +502,6 @@ pickle_message =
                   xml_time_stamp m)
 
 
-instance XmlPickler Message where
-  xpickle = pickle_message
-
-
-
 
 -- * Tasty Tests
 odds_tests :: TestTree