Modify Hhttpd.hs