happstack: Decouple database.hs and json_parser.hs.