projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2000-09-05 09:13:38 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
utils
/
Digraph.lhs
diff --git
a/ghc/compiler/utils/Digraph.lhs
b/ghc/compiler/utils/Digraph.lhs
index
0dfc585
..
f09d465
100644
(file)
--- a/
ghc/compiler/utils/Digraph.lhs
+++ b/
ghc/compiler/utils/Digraph.lhs
@@
-118,11
+118,7
@@
mapT :: (Vertex -> a -> b) -> Table a -> Table b
mapT f t = array (bounds t) [ (,) v (f v (t!v)) | v <- indices t ]
buildG :: Bounds -> [Edge] -> Graph
mapT f t = array (bounds t) [ (,) v (f v (t!v)) | v <- indices t ]
buildG :: Bounds -> [Edge] -> Graph
-#ifdef REALLY_HASKELL_1_3
buildG bounds edges = accumArray (flip (:)) [] bounds edges
buildG bounds edges = accumArray (flip (:)) [] bounds edges
-#else
-buildG bounds edges = accumArray (flip (:)) [] bounds [(,) k v | (k,v) <- edges]
-#endif
transposeG :: Graph -> Graph
transposeG g = buildG (bounds g) (reverseE g)
transposeG :: Graph -> Graph
transposeG g = buildG (bounds g) (reverseE g)