Update huffman.hs