From: simonmar <unknown>
Date: Tue, 5 Sep 2000 09:13:38 +0000 (+0000)
Subject: [project @ 2000-09-05 09:13:38 by simonmar]
X-Git-Tag: Approximately_9120_patches~3800
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6c393867f02f2f7482a0431d4abb8d998ef88dc5;p=ghc-hetmet.git

[project @ 2000-09-05 09:13:38 by simonmar]
remove last use of REALLY_HASKELL_1_3
---

diff --git a/ghc/compiler/utils/Digraph.lhs b/ghc/compiler/utils/Digraph.lhs
index 0dfc585..f09d465 100644
--- 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
-#ifdef REALLY_HASKELL_1_3
 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)