import Data.Typeable ( Typeable )
import Database.Groundhog (
countAll,
- executeRaw,
+ deleteAll,
insert,
insert_,
migrate,
- { 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:
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