module Data.Map.TernaryMap.Internal where

-- | TernaryMap k v is ternary tree. It is commonly used for storing word lists
-- like dictionaries.
data TernaryMap k v = Node !k !(TernaryMap k v) !(TernaryMap k v) !(TernaryMap k v)
                    | Null  v !(TernaryMap k v)
                    | End
               deriving (Show, Eq)