\begin{code}
data UniqFM ele
= EmptyUFM
- | LeafUFM !FastInt ele
+ | LeafUFM !FastInt !ele
| NodeUFM !FastInt -- the switching
!FastInt -- the delta
(UniqFM ele)
(indexToRoot j))
(mkLeafUFM i new)
(mkLeafUFM j old)
- | j ==# i = mkLeafUFM j $! f old new
+ | j ==# i = mkLeafUFM j $ f old new
| otherwise =
mkLLNodeUFM (getCommonNodeUFMData
(indexToRoot i)