1 {- 2 - Defaults.hs 3 - 4 - Contains the tuning values for compress and uncompress 5 - 6 -} 7 8 module Defaults 9 where 10 11 -- Maximum number of table entries (probably = 2^code_bits) 12 13 max_entries :: Int 14 max_entries = 2 ^ code_bits 15 16 -- First code value available 17 18 first_code :: Int 19 first_code = 256 20 21 -- Number of bits per output character 22 23 ascii_bits :: Int 24 ascii_bits = 8 25 26 -- Number of bits to represent code by 27 28 code_bits :: Int 29 code_bits = 12