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