-- Stability : provisional
-- Portability : portable
--
--- $Id: FiniteMap.hs,v 1.2 2002/04/24 16:31:39 simonmar Exp $
---
-- A finite map implementation, derived from the paper:
-- S Adams, "Efficient sets: a balancing act"
-- Journal of functional programming 3(4) Oct 1993, pp553-562
bottom = panic "emptyFM"
-}
--- #define EmptyFM (Branch _ _ IF_GHC(0#,0) _ _)
+-- #define EmptyFM (Branch _ _ IF_GHC(0#,0) _ _)
unitFM key elt = Branch key elt IF_GHC(1#,1) emptyFM emptyFM