[Haskell Huffman coding] Heap method is OK