Craft3e-0.1.1.0: Chapter15/MakeCode.hs

-------------------------------------------------------------------------
--                              
--         MakeCode.hs                          
--                              
--         Huffman coding in Haskell.                   
--                              
--         (c) Addison-Wesley, 1996-2011.                   
--                          
-------------------------------------------------------------------------

module MakeCode ( codes, codeTable ) where

import Types
import Frequency ( frequency )
import MakeTree  ( makeTree )
import CodeTable ( codeTable )

-- Putting together frequency calculation and tree conversion   

codes :: [Char] -> Tree

codes = makeTree . frequency