diff options
| author | partain <unknown> | 1996-06-26 10:30:32 +0000 |
|---|---|---|
| committer | partain <unknown> | 1996-06-26 10:30:32 +0000 |
| commit | 26741ec416bae2c502ef00a2ba0e79050a32cb67 (patch) | |
| tree | c07e46b823d29a16838533a17659ed3b28e9f328 /ghc/compiler/utils/Digraph.lhs | |
| parent | ae45ff0e9831a0dc862a5d68d03e355d7e323c62 (diff) | |
| download | haskell-26741ec416bae2c502ef00a2ba0e79050a32cb67.tar.gz | |
[project @ 1996-06-26 10:26:00 by partain]
SLPJ 1.3 changes through 96/06/25
Diffstat (limited to 'ghc/compiler/utils/Digraph.lhs')
| -rw-r--r-- | ghc/compiler/utils/Digraph.lhs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ghc/compiler/utils/Digraph.lhs b/ghc/compiler/utils/Digraph.lhs index 2e8b03287f..a76c7e47ee 100644 --- a/ghc/compiler/utils/Digraph.lhs +++ b/ghc/compiler/utils/Digraph.lhs @@ -17,10 +17,12 @@ module Digraph ( ) where CHK_Ubiq() -- debugging consistency check +IMPORT_1_3(List(partition)) -import Maybes ( Maybe, MaybeErr(..), maybeToBool ) +import Maybes ( MaybeErr(..), maybeToBool ) import Bag ( Bag, filterBag, bagToList, listToBag ) import FiniteMap ( FiniteMap, listToFM, lookupFM, lookupWithDefaultFM ) +import Unique ( Unique ) import Util \end{code} @@ -105,6 +107,8 @@ dfs eq r (vs,ns) (x:xs) \end{code} \begin{code} +{-# SPECIALIZE findSCCs :: (a -> (Unique, Bag Unique)) -> Bag a -> [SCC a] #-} + findSCCs :: Ord key => (vertex -> (key, Bag key)) -- Give key of vertex, and keys of thing's -- immediate neighbours. It's ok for the |