Commit c0378a27 authored by Simon Marlow's avatar Simon Marlow
Browse files

add missing case to Ord GlobalReg (EagerBlackhole == EagerBlackhole)

parent dc667ab5
...@@ -387,6 +387,7 @@ instance Ord GlobalReg where ...@@ -387,6 +387,7 @@ instance Ord GlobalReg where
compare CurrentTSO CurrentTSO = EQ compare CurrentTSO CurrentTSO = EQ
compare CurrentNursery CurrentNursery = EQ compare CurrentNursery CurrentNursery = EQ
compare HpAlloc HpAlloc = EQ compare HpAlloc HpAlloc = EQ
compare EagerBlackholeInfo EagerBlackholeInfo = EQ
compare GCEnter1 GCEnter1 = EQ compare GCEnter1 GCEnter1 = EQ
compare GCFun GCFun = EQ compare GCFun GCFun = EQ
compare BaseReg BaseReg = EQ compare BaseReg BaseReg = EQ
......
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