diff options
| author | Krzysztof Gogolewski <krz.gogolewski@gmail.com> | 2018-08-15 18:20:36 +0200 |
|---|---|---|
| committer | Krzysztof Gogolewski <krz.gogolewski@gmail.com> | 2018-08-15 18:23:00 +0200 |
| commit | 1e741fe829dcf25acf5bf07ce4593f2b537dd351 (patch) | |
| tree | 9c8ccdb13064af293c4454404dfd7e06402627f1 | |
| parent | 9f932d8a609f54127510a432f399b9487ea84d6a (diff) | |
| download | haskell-1e741fe829dcf25acf5bf07ce4593f2b537dd351.tar.gz | |
Cosmetics in GraphColor
This allows to run ghc-in-ghci when :set -XTypeApplications is in
.ghciconfig.
| -rw-r--r-- | compiler/utils/GraphColor.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/GraphColor.hs b/compiler/utils/GraphColor.hs index 34cbb29b02..4c1388e91d 100644 --- a/compiler/utils/GraphColor.hs +++ b/compiler/utils/GraphColor.hs @@ -193,7 +193,7 @@ colorScan_spin iterative triv spill graph -- we were able to coalesce something -- go back to Simplify and see if this frees up more nodes to be trivially colorable. - (graph2, kksCoalesceFound @(_:_)) + (graph2, kksCoalesceFound@(_:_)) -> colorScan_spin iterative triv spill graph2 ksTriv ksSpill (reverse kksCoalesceFound ++ kksCoalesce) |