diff options
Diffstat (limited to 'compiler/nativeGen/GraphOps.hs')
| -rw-r--r-- | compiler/nativeGen/GraphOps.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/GraphOps.hs b/compiler/nativeGen/GraphOps.hs index f620d8a0df..f918fd2557 100644 --- a/compiler/nativeGen/GraphOps.hs +++ b/compiler/nativeGen/GraphOps.hs @@ -28,7 +28,6 @@ import UniqFM import Data.List hiding (union) import Data.Maybe - -- | Lookup a node from the graph. lookupNode :: Uniquable k @@ -447,6 +446,7 @@ setColor u color u +{-# INLINE adjustWithDefaultUFM #-} adjustWithDefaultUFM :: Uniquable k => (a -> a) -> a -> k @@ -458,7 +458,7 @@ adjustWithDefaultUFM f def k map map k def - +{-# INLINE adjustUFM #-} adjustUFM :: Uniquable k => (a -> a) |