diff options
| author | sheaf <sam.derbyshire@gmail.com> | 2022-04-12 12:41:47 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-04-14 08:19:16 -0400 |
| commit | 426ec4461c1723a8fe4be97404c7e6c10a10cee5 (patch) | |
| tree | 4bd4833c641b6362a27bf0d0c92fb3b49d452222 /hadrian/src/Expression | |
| parent | df893f6667b31946ae7995150a6a5920602f7b0b (diff) | |
| download | haskell-426ec4461c1723a8fe4be97404c7e6c10a10cee5.tar.gz | |
Hadrian: use a set to keep track of ways
The order in which ways are provided doesn't matter,
so we use a data structure with the appropriate semantics to
represent ways.
Fixes #21378
Diffstat (limited to 'hadrian/src/Expression')
| -rw-r--r-- | hadrian/src/Expression/Type.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/hadrian/src/Expression/Type.hs b/hadrian/src/Expression/Type.hs index b5b0138f0a..cf6eec2129 100644 --- a/hadrian/src/Expression/Type.hs +++ b/hadrian/src/Expression/Type.hs @@ -1,5 +1,6 @@ module Expression.Type where +import Data.Set (Set) import Context.Type import Way.Type @@ -15,4 +16,4 @@ type Expr a = H.Expr Context Builder a -- and 'Packages'. type Predicate = H.Predicate Context Builder type Args = H.Args Context Builder -type Ways = Expr [Way] +type Ways = Expr (Set Way) |