projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
gen_contents_index: Improve parsing of packages file
[ghc-hetmet.git]
/
compiler
/
utils
/
Digraph.lhs
diff --git
a/compiler/utils/Digraph.lhs
b/compiler/utils/Digraph.lhs
index
a2bb215
..
a341bde
100644
(file)
--- 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 ( (\\) )
import Data.Maybe
import Data.Array
import Data.List ( (\\) )
-
-#if !defined(__GLASGOW_HASKELL__) || __GLASGOW_HASKELL__ > 604
import Data.Array.ST
import Data.Array.ST
-#else
-import Data.Array.ST hiding ( indices, bounds )
-#endif
\end{code}
%************************************************************************
\end{code}
%************************************************************************
@@
-76,7
+71,7
@@
Note [Nodes, keys, vertices]
\begin{code}
data Graph node = Graph {
\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
}
gr_vertex_to_node :: Vertex -> node,
gr_node_to_vertex :: node -> Maybe Vertex
}