diff options
| author | Simon Jakobi <simon.jakobi@gmail.com> | 2020-04-02 02:35:05 +0200 |
|---|---|---|
| committer | Simon Jakobi <simon.jakobi@gmail.com> | 2021-06-24 19:07:22 +0000 |
| commit | ca68296185ec8698629ef7e0a01e26b700cd6c62 (patch) | |
| tree | d64e1d5bd19d1a0d2e535f6936e2529642ed9da6 | |
| parent | 138b7a5775251c330ade870a0b8d1f5c4659e669 (diff) | |
| download | haskell-wip/sjakobi/graph-newtype.tar.gz | |
Turn GraphBase.Graph into a newtypewip/sjakobi/graph-newtype
| -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 |