\begin{code}
data UniqFM ele
= EmptyUFM
- | LeafUFM !FastInt !ele
+ | LeafUFM !FastInt ele
| NodeUFM !FastInt -- the switching
!FastInt -- the delta
(UniqFM ele)
use_snd _ b = b
\end{code}
-\begin{code}
-_unused :: FS.FastString
-_unused = undefined
-\end{code}