See https://github.com/yesodweb/yesod-scaffold/pull/15

Todo:

- Add ThreadId to prevent race condition.