fields:
- name: odds_OddsGame0 # Default created by mkNormalFieldName
dbName: odds_id
+ reference:
+ onDelete: cascade
- name: odds_OddsGame1 # Default created by mkNormalFieldName
dbName: odds_games_id
+ reference:
+ onDelete: cascade
- entity: OddsGame_OddsGameTeam
dbName: odds_games__odds_games_teams
+ constructors:
+ - name: OddsGame_OddsGameTeam
+ fields:
+ - name: ogogt_odds_games_id
+ reference:
+ onDelete: cascade
+ - name: ogogt_away_team_id
+ reference:
+ onDelete: cascade
+ - name: ogogt_home_team_id
+ reference:
+ onDelete: cascade
|]
instance DbImport Message where
-- | 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