diff options
| -rw-r--r-- | compiler/GHC/Data/Graph/Base.hs | 2 | ||||
| -rwxr-xr-x[-rw-r--r--] | testsuite/tests/rts/flags/T20006.hs | 0 |
2 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Data/Graph/Base.hs b/compiler/GHC/Data/Graph/Base.hs index 9e8cc383a4..2cc7fdcd24 100644 --- a/compiler/GHC/Data/Graph/Base.hs +++ b/compiler/GHC/Data/Graph/Base.hs @@ -42,7 +42,7 @@ type Triv k cls color -- There used to be more fields, but they were turfed out in a previous revision. -- maybe we'll want more later.. -- -data Graph k cls color +newtype Graph k cls color = Graph { -- | All active nodes in the graph. graphMap :: UniqFM k (Node k cls color) } diff --git a/testsuite/tests/rts/flags/T20006.hs b/testsuite/tests/rts/flags/T20006.hs index d82a4bd93b..d82a4bd93b 100644..100755 --- a/testsuite/tests/rts/flags/T20006.hs +++ b/testsuite/tests/rts/flags/T20006.hs |