X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FDigraph.lhs;h=a341bdecbc1fc80fcd8322b495e90a572244c6e6;hb=e5c3b478b3cd1707cf122833822f44b2ac09b8e9;hp=a2bb21572dacfd9b1c29e4d7d229bd2a9192b5d0;hpb=e07185eda0f37bd56ad876a2dfe73c956e432ffc;p=ghc-hetmet.git

diff --git a/compiler/utils/Digraph.lhs b/compiler/utils/Digraph.lhs
index a2bb215..a341bde 100644
--- a/compiler/utils/Digraph.lhs
+++ b/compiler/utils/Digraph.lhs
@@ -50,12 +50,7 @@ import Control.Monad.ST
 import Data.Maybe
 import Data.Array
 import Data.List   ( (\\) )
-
-#if !defined(__GLASGOW_HASKELL__) || __GLASGOW_HASKELL__ > 604
 import Data.Array.ST
-#else
-import Data.Array.ST  hiding ( indices, bounds )
-#endif
 \end{code}
 
 %************************************************************************
@@ -76,7 +71,7 @@ Note [Nodes, keys, vertices]
 
 \begin{code}
 data Graph node = Graph { 
-    gr_int_graph :: IntGraph,
+    gr_int_graph      :: IntGraph,
     gr_vertex_to_node :: Vertex -> node,
     gr_node_to_vertex :: node -> Maybe Vertex
   }