X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FXML%2FScores.hs;h=ef2330c6060f01686d6c1499d265c73d1f6b6fab;hb=d7e4dbd6211fa1f869d22892747db424ea103577;hp=403727e5cfd7e7a11dd917524fe891146abd39d9;hpb=8c7f33d76981a27a4fde6271dc71105b23adc5a1;p=dead%2Fhtsn-import.git diff --git a/src/TSN/XML/Scores.hs b/src/TSN/XML/Scores.hs index 403727e..ef2330c 100644 --- a/src/TSN/XML/Scores.hs +++ b/src/TSN/XML/Scores.hs @@ -30,7 +30,7 @@ import Data.Tuple.Curry ( uncurryN ) import Data.Typeable ( Typeable ) import Database.Groundhog ( countAll, - executeRaw, + deleteAll, insert, insert_, migrate, @@ -253,13 +253,15 @@ newtype ScoreGameHTeam = -- * ScoreGame_ScoreGameTeam -- | Join a 'ScoreGame' with its home/away teams. Database-only. We --- use a join table because the teams are kept unique. +-- use a join table because the teams are kept unique. The first +-- argument is the game id, the second argument is the visiting team +-- (vteam) id, and the last argument is the home team (hteam) id. -- data ScoreGame_ScoreGameTeam = ScoreGame_ScoreGameTeam - (DefaultKey ScoreGame) -- ^ game id - (DefaultKey ScoreGameTeam) -- ^ vteam id - (DefaultKey ScoreGameTeam) -- ^ hteam id + (DefaultKey ScoreGame) -- game id + (DefaultKey ScoreGameTeam) -- vteam id + (DefaultKey ScoreGameTeam) -- hteam id -- * ScoreLocation @@ -385,7 +387,7 @@ mkPersist tsn_codegen_config [groundhog| - { name: status_text, dbName: status_text } - entity: ScoreGame_ScoreGameTeam - dbName: scores__scores_games_teams + dbName: scores_games__scores_games_teams constructors: - name: ScoreGame_ScoreGameTeam fields: @@ -618,7 +620,7 @@ test_on_delete_cascade = testGroup "cascading delete tests" migrate f _ <- dbimport score -- No idea how 'delete' works, so do this instead. - executeRaw False "DELETE FROM scores;" [] + deleteAll a count_a <- countAll a count_b <- countAll b count_c <- countAll c