Commit cd25dd99 authored by Ian Lynagh's avatar Ian Lynagh

Tweak strictness

parent ee4d8e97
......@@ -698,7 +698,7 @@ insert_ele f (LeafUFM j old) i new
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment