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

diff --git a/src/TSN/XML/Odds.hs b/src/TSN/XML/Odds.hs
index 2105ce7..7eb759b 100644
--- a/src/TSN/XML/Odds.hs
+++ b/src/TSN/XML/Odds.hs
@@ -3,7 +3,6 @@
 {-# LANGUAGE GADTs #-}
 {-# LANGUAGE QuasiQuotes #-}
 {-# LANGUAGE RecordWildCards #-}
-{-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE StandaloneDeriving #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE TypeFamilies #-}
@@ -13,9 +12,8 @@
 --   unorganized crap.
 --
 module TSN.XML.Odds (
-  Odds,
-  Message,
-  odds_tests )
+  odds_tests,
+  pickle_message )
 where
 
 import Control.Monad ( forM_ )
@@ -35,7 +33,6 @@ import Test.Tasty ( TestTree, testGroup )
 import Test.Tasty.HUnit ( (@?=), testCase )
 import Text.XML.HXT.Core (
   PU,
-  XmlPickler(..),
   xp5Tuple,
   xp6Tuple,
   xp8Tuple,
@@ -405,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 =
@@ -428,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
@@ -452,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 =
@@ -465,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
@@ -490,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 =
@@ -518,11 +502,6 @@ pickle_message =
                   xml_time_stamp m)
 
 
-instance XmlPickler Message where
-  xpickle = pickle_message
-
-
-
 
 -- * Tasty Tests
 odds_tests :: TestTree
@@ -539,7 +518,7 @@ test_pickle_of_unpickle_is_identity :: TestTree
 test_pickle_of_unpickle_is_identity =
   testCase "pickle composed with unpickle is the identity" $ do
     let path = "test/xml/Odds_XML.xml"
-    (expected :: [Message], actual) <- pickle_unpickle "message" path
+    (expected, actual) <- pickle_unpickle pickle_message path
     actual @?= expected