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