X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FXML%2FOdds.hs;h=fed7fa11a3fcc6066e3b2eda4c184c0039dba9f5;hb=3a8d465bcc6f36b6e7601cf1902e575171aa7beb;hp=e2ef142b45b272d81ad3dec7b3beda312abb9554;hpb=d8857894f52d19002d5d8fce2d2d57eeefccc3d6;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/XML/Odds.hs b/src/TSN/XML/Odds.hs
index e2ef142..fed7fa1 100644
--- a/src/TSN/XML/Odds.hs
+++ b/src/TSN/XML/Odds.hs
@@ -65,12 +65,11 @@ import TSN.Codegen (
   tsn_codegen_config )
 import TSN.DbImport ( DbImport(..), ImportResult(..), run_dbmigrate )
 import TSN.Picklers ( xp_date_padded, xp_time, xp_time_stamp )
-import TSN.Team ( Team(..) )
+import TSN.Team ( FromXmlFkTeams(..), Team(..) )
 import TSN.XmlImport ( XmlImport(..), XmlImportFkTeams(..) )
 import Xml (
   Child(..),
   FromXml(..),
-  FromXmlFkTeams(..),
   ToDb(..),
   pickle_unpickle,
   unpickleable,
@@ -450,7 +449,7 @@ mkPersist tsn_codegen_config [groundhog|
   constructors:
     - name: OddsCasino
       uniques:
-        - name: unique_odds_casino
+        - name: unique_odds_casinos
           type: constraint
           fields: [casino_client_id]
 
@@ -624,13 +623,13 @@ pickle_starter =
 -- | Pickler for an home team 'OddsGameTeamStarterXml'
 --
 pickle_home_starter :: PU OddsGameTeamStarterXml
-pickle_home_starter = xpElem "HStarter" $ pickle_starter
+pickle_home_starter = xpElem "HStarter" pickle_starter
 
 
 -- | Pickler for an away team 'OddsGameTeamStarterXml'
 --
 pickle_away_starter :: PU OddsGameTeamStarterXml
-pickle_away_starter = xpElem "AStarter" $ pickle_starter
+pickle_away_starter = xpElem "AStarter" pickle_starter