runmigrate :: Pool Connection ->  IO ()
runmigrate pool =
  withResource pool $ \c ->
    withTransaction c $
      migrate "toaster" c "config/db" migrations
runmigrate :: Pool Connection ->  IO ()
runmigrate pool =
  withResource pool $ \c ->
    withTransaction c $
      migrate "toaster" c "config/db" migrations
runmigrate pool =
  withResource pool $ \c ->
    withTransaction c $
      migrate "toaster" c "config/db" migrations