diff options
Diffstat (limited to 'compiler/utils/Dominators.hs')
| -rw-r--r-- | compiler/utils/Dominators.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/utils/Dominators.hs b/compiler/utils/Dominators.hs index d6d8404564..485cc75995 100644 --- a/compiler/utils/Dominators.hs +++ b/compiler/utils/Dominators.hs @@ -364,11 +364,11 @@ domM = fetch domE rootM :: Dom s Node
rootM = gets rootE
succsM :: Node -> Dom s [Node]
-succsM i = gets (IS.toList . (!i) . succE)
+succsM i = gets (IS.toList . (! i) . succE)
predsM :: Node -> Dom s [Node]
-predsM i = gets (IS.toList . (!i) . predE)
+predsM i = gets (IS.toList . (! i) . predE)
bucketM :: Node -> Dom s [Node]
-bucketM i = gets (IS.toList . (!i) . bucketE)
+bucketM i = gets (IS.toList . (! i) . bucketE)
sizeM :: Node -> Dom s Int
sizeM = fetch sizeE
sdnoM :: Node -> Dom s Int
|