From 9d5e91646c332bd7650577a891b2c6d76a24bdb6 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 15 Jan 1999 10:49:21 +0000
Subject: [PATCH] [project @ 1999-01-15 10:49:05 by sof] Minor syntactic h98
updates
---
ghc/tests/deSugar/should_compile/ds001.hs | 2 +-
ghc/tests/deSugar/should_compile/ds002.hs | 2 +-
ghc/tests/deSugar/should_compile/ds003.hs | 2 +-
ghc/tests/deSugar/should_compile/ds004.hs | 2 +-
ghc/tests/deSugar/should_compile/ds005.hs | 2 +-
ghc/tests/deSugar/should_compile/ds006.hs | 2 +-
ghc/tests/deSugar/should_compile/ds007.hs | 2 +-
ghc/tests/deSugar/should_compile/ds008.hs | 2 +-
ghc/tests/deSugar/should_compile/ds009.hs | 2 +-
ghc/tests/deSugar/should_compile/ds010.hs | 2 +-
ghc/tests/deSugar/should_compile/ds011.hs | 2 +-
ghc/tests/deSugar/should_compile/ds012.hs | 2 +-
ghc/tests/deSugar/should_compile/ds013.hs | 2 +-
ghc/tests/deSugar/should_compile/ds014.hs | 4 ++--
ghc/tests/deSugar/should_compile/ds015.hs | 2 +-
ghc/tests/deSugar/should_compile/ds016.hs | 2 +-
ghc/tests/deSugar/should_compile/ds017.hs | 2 +-
ghc/tests/deSugar/should_compile/ds018.hs | 2 +-
ghc/tests/deSugar/should_compile/ds019.hs | 2 +-
ghc/tests/deSugar/should_compile/ds020.hs | 2 +-
ghc/tests/deSugar/should_compile/ds021.hs | 2 +-
ghc/tests/deSugar/should_compile/ds022.hs | 2 +-
ghc/tests/deSugar/should_compile/ds023.hs | 2 +-
ghc/tests/deSugar/should_compile/ds024.hs | 2 +-
ghc/tests/deSugar/should_compile/ds025.hs | 2 +-
ghc/tests/deSugar/should_compile/ds026.hs | 2 +-
ghc/tests/deSugar/should_compile/ds027.hs | 2 +-
ghc/tests/deSugar/should_compile/ds028.hs | 2 +-
ghc/tests/deSugar/should_compile/ds029.hs | 2 +-
ghc/tests/deSugar/should_compile/ds030.hs | 2 +-
ghc/tests/deSugar/should_compile/ds032.hs | 2 +-
ghc/tests/deSugar/should_compile/ds033.hs | 2 +-
ghc/tests/deSugar/should_compile/ds034.hs | 2 +-
ghc/tests/deSugar/should_compile/ds037.hs | 2 +-
ghc/tests/deSugar/should_compile/ds038.hs | 4 ++--
ghc/tests/deSugar/should_compile/ds039.hs | 4 ++--
ghc/tests/deSugar/should_compile/ds040.hs | 2 +-
ghc/tests/deSugar/should_run/dsrun006.hs | 2 +-
38 files changed, 41 insertions(+), 41 deletions(-)
diff --git a/ghc/tests/deSugar/should_compile/ds001.hs b/ghc/tests/deSugar/should_compile/ds001.hs
index 0358f2022ec8..a62c7b420525 100644
--- a/ghc/tests/deSugar/should_compile/ds001.hs
+++ b/ghc/tests/deSugar/should_compile/ds001.hs
@@ -1,4 +1,4 @@
---!!! ds001 -- simple function and pattern bindings
+-- !!! ds001 -- simple function and pattern bindings
--
-- this tests ultra-simple function and pattern bindings (no patterns)
diff --git a/ghc/tests/deSugar/should_compile/ds002.hs b/ghc/tests/deSugar/should_compile/ds002.hs
index d75463659635..a63de9423342 100644
--- a/ghc/tests/deSugar/should_compile/ds002.hs
+++ b/ghc/tests/deSugar/should_compile/ds002.hs
@@ -1,4 +1,4 @@
---!!! ds002 -- overlapping equations and guards
+-- !!! ds002 -- overlapping equations and guards
--
-- this tests "overlapping" variables and guards
diff --git a/ghc/tests/deSugar/should_compile/ds003.hs b/ghc/tests/deSugar/should_compile/ds003.hs
index f68346ded15e..0faff0e8da1e 100644
--- a/ghc/tests/deSugar/should_compile/ds003.hs
+++ b/ghc/tests/deSugar/should_compile/ds003.hs
@@ -1,4 +1,4 @@
---!!! ds003 -- list, tuple, lazy, as patterns
+-- !!! ds003 -- list, tuple, lazy, as patterns
--
module Test where
diff --git a/ghc/tests/deSugar/should_compile/ds004.hs b/ghc/tests/deSugar/should_compile/ds004.hs
index ef9d0b40d34b..cd89e1822d51 100644
--- a/ghc/tests/deSugar/should_compile/ds004.hs
+++ b/ghc/tests/deSugar/should_compile/ds004.hs
@@ -1,4 +1,4 @@
---!!! ds004 -- nodups from SLPJ p 79
+-- !!! ds004 -- nodups from SLPJ p 79
--
module Test where
diff --git a/ghc/tests/deSugar/should_compile/ds005.hs b/ghc/tests/deSugar/should_compile/ds005.hs
index 505d500e3f64..6fca84b10b59 100644
--- a/ghc/tests/deSugar/should_compile/ds005.hs
+++ b/ghc/tests/deSugar/should_compile/ds005.hs
@@ -1,4 +1,4 @@
---!!! ds005 -- mappairs from SLPJ Ch 5'
+-- !!! ds005 -- mappairs from SLPJ Ch 5'
--
-- this simply tests a "typical" example
diff --git a/ghc/tests/deSugar/should_compile/ds006.hs b/ghc/tests/deSugar/should_compile/ds006.hs
index 6df589e21557..ba05547920f2 100644
--- a/ghc/tests/deSugar/should_compile/ds006.hs
+++ b/ghc/tests/deSugar/should_compile/ds006.hs
@@ -1,4 +1,4 @@
---!!! ds006 -- v | True = v+1 | False = v (dead code elim)
+-- !!! ds006 -- v | True = v+1 | False = v (dead code elim)
--
module Test where
diff --git a/ghc/tests/deSugar/should_compile/ds007.hs b/ghc/tests/deSugar/should_compile/ds007.hs
index 5b2b752e93ae..dd0fcd50ebaa 100644
--- a/ghc/tests/deSugar/should_compile/ds007.hs
+++ b/ghc/tests/deSugar/should_compile/ds007.hs
@@ -1,4 +1,4 @@
---!!! ds007 -- simple local bindings
+-- !!! ds007 -- simple local bindings
module ShouldSucceed where
diff --git a/ghc/tests/deSugar/should_compile/ds008.hs b/ghc/tests/deSugar/should_compile/ds008.hs
index 1264d13d8fcc..a97470d99e2d 100644
--- a/ghc/tests/deSugar/should_compile/ds008.hs
+++ b/ghc/tests/deSugar/should_compile/ds008.hs
@@ -1,4 +1,4 @@
---!!! ds008 -- free tyvars on RHSs
+-- !!! ds008 -- free tyvars on RHSs
--
-- these tests involve way-cool TyApps
diff --git a/ghc/tests/deSugar/should_compile/ds009.hs b/ghc/tests/deSugar/should_compile/ds009.hs
index 370b6290db89..ba205562ad80 100644
--- a/ghc/tests/deSugar/should_compile/ds009.hs
+++ b/ghc/tests/deSugar/should_compile/ds009.hs
@@ -1,4 +1,4 @@
---!!! ds009 -- simple list comprehensions
+-- !!! ds009 -- simple list comprehensions
module SimpleListComp where
diff --git a/ghc/tests/deSugar/should_compile/ds010.hs b/ghc/tests/deSugar/should_compile/ds010.hs
index a49c09c03f83..abf6fa1b3e06 100644
--- a/ghc/tests/deSugar/should_compile/ds010.hs
+++ b/ghc/tests/deSugar/should_compile/ds010.hs
@@ -1,4 +1,4 @@
---!!! ds010 -- deeply-nested list comprehensions
+-- !!! ds010 -- deeply-nested list comprehensions
module Test where
diff --git a/ghc/tests/deSugar/should_compile/ds011.hs b/ghc/tests/deSugar/should_compile/ds011.hs
index 8b12d9371fe6..f9dc13d49a15 100644
--- a/ghc/tests/deSugar/should_compile/ds011.hs
+++ b/ghc/tests/deSugar/should_compile/ds011.hs
@@ -1,4 +1,4 @@
---!!! ds011 -- uses of "error"
+-- !!! ds011 -- uses of "error"
module Tests where
diff --git a/ghc/tests/deSugar/should_compile/ds012.hs b/ghc/tests/deSugar/should_compile/ds012.hs
index 390db5817d9b..8870881441cb 100644
--- a/ghc/tests/deSugar/should_compile/ds012.hs
+++ b/ghc/tests/deSugar/should_compile/ds012.hs
@@ -1,4 +1,4 @@
---!!! ds012 -- simple Integer arithmetic
+-- !!! ds012 -- simple Integer arithmetic
--
module Tests where
diff --git a/ghc/tests/deSugar/should_compile/ds013.hs b/ghc/tests/deSugar/should_compile/ds013.hs
index 9b5b4b3454b9..da7267d761aa 100644
--- a/ghc/tests/deSugar/should_compile/ds013.hs
+++ b/ghc/tests/deSugar/should_compile/ds013.hs
@@ -1,4 +1,4 @@
---!!! ds013 -- simple Rational arithmetic
+-- !!! ds013 -- simple Rational arithmetic
module Tests where
diff --git a/ghc/tests/deSugar/should_compile/ds014.hs b/ghc/tests/deSugar/should_compile/ds014.hs
index cf1ccb183baa..8770cb781443 100644
--- a/ghc/tests/deSugar/should_compile/ds014.hs
+++ b/ghc/tests/deSugar/should_compile/ds014.hs
@@ -1,5 +1,5 @@
---!!! ds014 -- character and string literals
---!!! really should add ALL weird forms...
+-- !!! ds014 -- character and string literals
+-- !!! really should add ALL weird forms...
module Tests where
diff --git a/ghc/tests/deSugar/should_compile/ds015.hs b/ghc/tests/deSugar/should_compile/ds015.hs
index 5c2164ecbc57..b14cc6e5267a 100644
--- a/ghc/tests/deSugar/should_compile/ds015.hs
+++ b/ghc/tests/deSugar/should_compile/ds015.hs
@@ -1,4 +1,4 @@
---!!! ds015 -- lambdas
+-- !!! ds015 -- lambdas
--
module Tests where
diff --git a/ghc/tests/deSugar/should_compile/ds016.hs b/ghc/tests/deSugar/should_compile/ds016.hs
index 57e00535389b..370c37eaf832 100644
--- a/ghc/tests/deSugar/should_compile/ds016.hs
+++ b/ghc/tests/deSugar/should_compile/ds016.hs
@@ -1,4 +1,4 @@
---!!! ds016 -- case expressions
+-- !!! ds016 -- case expressions
--
module Tests where
diff --git a/ghc/tests/deSugar/should_compile/ds017.hs b/ghc/tests/deSugar/should_compile/ds017.hs
index 00f98848b3d6..20092448d73d 100644
--- a/ghc/tests/deSugar/should_compile/ds017.hs
+++ b/ghc/tests/deSugar/should_compile/ds017.hs
@@ -1,4 +1,4 @@
---!!! ds017 -- let expressions
+-- !!! ds017 -- let expressions
--
module Tests where
diff --git a/ghc/tests/deSugar/should_compile/ds018.hs b/ghc/tests/deSugar/should_compile/ds018.hs
index b5c428012eaf..00098bd05c0c 100644
--- a/ghc/tests/deSugar/should_compile/ds018.hs
+++ b/ghc/tests/deSugar/should_compile/ds018.hs
@@ -1,4 +1,4 @@
---!!! ds018 -- explicit lists and tuples
+-- !!! ds018 -- explicit lists and tuples
--
module Tests where
diff --git a/ghc/tests/deSugar/should_compile/ds019.hs b/ghc/tests/deSugar/should_compile/ds019.hs
index 32400ddec8fa..8056a5470e26 100644
--- a/ghc/tests/deSugar/should_compile/ds019.hs
+++ b/ghc/tests/deSugar/should_compile/ds019.hs
@@ -1,4 +1,4 @@
---!!! ds019 -- mixed var and uni-constructor pats
+-- !!! ds019 -- mixed var and uni-constructor pats
module Test where
diff --git a/ghc/tests/deSugar/should_compile/ds020.hs b/ghc/tests/deSugar/should_compile/ds020.hs
index ac6ea8dd4b9e..54a1101f231b 100644
--- a/ghc/tests/deSugar/should_compile/ds020.hs
+++ b/ghc/tests/deSugar/should_compile/ds020.hs
@@ -1,4 +1,4 @@
---!!! ds020 -- lazy patterns (in detail)
+-- !!! ds020 -- lazy patterns (in detail)
--
module Test where
diff --git a/ghc/tests/deSugar/should_compile/ds021.hs b/ghc/tests/deSugar/should_compile/ds021.hs
index f7e93929edd5..1f33591a0551 100644
--- a/ghc/tests/deSugar/should_compile/ds021.hs
+++ b/ghc/tests/deSugar/should_compile/ds021.hs
@@ -1,4 +1,4 @@
---!!! ds021 -- hairier uses of guards
+-- !!! ds021 -- hairier uses of guards
module Test where
diff --git a/ghc/tests/deSugar/should_compile/ds022.hs b/ghc/tests/deSugar/should_compile/ds022.hs
index ce07e1941cac..672871093a13 100644
--- a/ghc/tests/deSugar/should_compile/ds022.hs
+++ b/ghc/tests/deSugar/should_compile/ds022.hs
@@ -1,4 +1,4 @@
---!!! ds022 -- literal patterns (wimp version)
+-- !!! ds022 -- literal patterns (wimp version)
--
module Tests where
diff --git a/ghc/tests/deSugar/should_compile/ds023.hs b/ghc/tests/deSugar/should_compile/ds023.hs
index ecd6e137bfe1..a15c464d38ee 100644
--- a/ghc/tests/deSugar/should_compile/ds023.hs
+++ b/ghc/tests/deSugar/should_compile/ds023.hs
@@ -1,4 +1,4 @@
---!!! ds023 -- overloading eg from section 9.2
+-- !!! ds023 -- overloading eg from section 9.2
--
module Tests where
diff --git a/ghc/tests/deSugar/should_compile/ds024.hs b/ghc/tests/deSugar/should_compile/ds024.hs
index 6f0b27aadec8..9c1c9d86be1c 100644
--- a/ghc/tests/deSugar/should_compile/ds024.hs
+++ b/ghc/tests/deSugar/should_compile/ds024.hs
@@ -1,4 +1,4 @@
---!!! ds024 -- correct types on ConPatOuts
+-- !!! ds024 -- correct types on ConPatOuts
-- do all the right types get stuck on all the
-- Nils and Conses?
diff --git a/ghc/tests/deSugar/should_compile/ds025.hs b/ghc/tests/deSugar/should_compile/ds025.hs
index b2ae1fda46d7..8b7651f9f1b9 100644
--- a/ghc/tests/deSugar/should_compile/ds025.hs
+++ b/ghc/tests/deSugar/should_compile/ds025.hs
@@ -1,4 +1,4 @@
---!!! ds025 -- overloaded assoc -- AbsBinds
+-- !!! ds025 -- overloaded assoc -- AbsBinds
module Util where
diff --git a/ghc/tests/deSugar/should_compile/ds026.hs b/ghc/tests/deSugar/should_compile/ds026.hs
index ff1f0bee7ee5..969587d70e57 100644
--- a/ghc/tests/deSugar/should_compile/ds026.hs
+++ b/ghc/tests/deSugar/should_compile/ds026.hs
@@ -1,4 +1,4 @@
---!!! ds026 -- classes -- incl. polymorphic method
+-- !!! ds026 -- classes -- incl. polymorphic method
module ShouldSucceed where
diff --git a/ghc/tests/deSugar/should_compile/ds027.hs b/ghc/tests/deSugar/should_compile/ds027.hs
index 99a4d93ac265..5f7a54555acc 100644
--- a/ghc/tests/deSugar/should_compile/ds027.hs
+++ b/ghc/tests/deSugar/should_compile/ds027.hs
@@ -1,4 +1,4 @@
---!!! ds027 -- simple instances
+-- !!! ds027 -- simple instances
--
module Test where
diff --git a/ghc/tests/deSugar/should_compile/ds028.hs b/ghc/tests/deSugar/should_compile/ds028.hs
index 18c0b7d62295..bec8c19b4315 100644
--- a/ghc/tests/deSugar/should_compile/ds028.hs
+++ b/ghc/tests/deSugar/should_compile/ds028.hs
@@ -1,4 +1,4 @@
---!!! ds028: failable pats in top row
+-- !!! ds028: failable pats in top row
module ShouldSucceed where
diff --git a/ghc/tests/deSugar/should_compile/ds029.hs b/ghc/tests/deSugar/should_compile/ds029.hs
index fd9f583487fc..833e19b25db3 100644
--- a/ghc/tests/deSugar/should_compile/ds029.hs
+++ b/ghc/tests/deSugar/should_compile/ds029.hs
@@ -1,4 +1,4 @@
---!!! ds029: pattern binding with guards (dubious but valid)
+-- !!! ds029: pattern binding with guards (dubious but valid)
--
module Test where
diff --git a/ghc/tests/deSugar/should_compile/ds030.hs b/ghc/tests/deSugar/should_compile/ds030.hs
index 7abc4d82e02d..6046fd93eb49 100644
--- a/ghc/tests/deSugar/should_compile/ds030.hs
+++ b/ghc/tests/deSugar/should_compile/ds030.hs
@@ -1,4 +1,4 @@
---!!! ds030: checks that types substituted into binders
+-- !!! ds030: checks that types substituted into binders
--
module Test where
diff --git a/ghc/tests/deSugar/should_compile/ds032.hs b/ghc/tests/deSugar/should_compile/ds032.hs
index 31bc07ebf557..65f06c34174f 100644
--- a/ghc/tests/deSugar/should_compile/ds032.hs
+++ b/ghc/tests/deSugar/should_compile/ds032.hs
@@ -1,4 +1,4 @@
---!!! recursive funs tangled in an AbsBind
+-- !!! recursive funs tangled in an AbsBind
module ShouldSucceed where
diff --git a/ghc/tests/deSugar/should_compile/ds033.hs b/ghc/tests/deSugar/should_compile/ds033.hs
index bdadb58bfeb9..83a00cacb163 100644
--- a/ghc/tests/deSugar/should_compile/ds033.hs
+++ b/ghc/tests/deSugar/should_compile/ds033.hs
@@ -1,4 +1,4 @@
---!!! getting top-level dependencies right
+-- !!! getting top-level dependencies right
--
module Test where
diff --git a/ghc/tests/deSugar/should_compile/ds034.hs b/ghc/tests/deSugar/should_compile/ds034.hs
index d1f278608b84..47a190eff500 100644
--- a/ghc/tests/deSugar/should_compile/ds034.hs
+++ b/ghc/tests/deSugar/should_compile/ds034.hs
@@ -1,4 +1,4 @@
---!!! mutually-recursive methods in an instance declaration
+-- !!! mutually-recursive methods in an instance declaration
--
module Test where
diff --git a/ghc/tests/deSugar/should_compile/ds037.hs b/ghc/tests/deSugar/should_compile/ds037.hs
index 648534165021..72eb43a42ade 100644
--- a/ghc/tests/deSugar/should_compile/ds037.hs
+++ b/ghc/tests/deSugar/should_compile/ds037.hs
@@ -1,4 +1,4 @@
---!!! AbsBinds with tyvars, no dictvars, but some dict binds
+-- !!! AbsBinds with tyvars, no dictvars, but some dict binds
--
module ShouldSucceed where
diff --git a/ghc/tests/deSugar/should_compile/ds038.hs b/ghc/tests/deSugar/should_compile/ds038.hs
index 14e60e96e29b..6436b57300be 100644
--- a/ghc/tests/deSugar/should_compile/ds038.hs
+++ b/ghc/tests/deSugar/should_compile/ds038.hs
@@ -1,5 +1,5 @@
---!!! Jon Hill reported a bug in desugaring this in 0.09
---!!! (recursive with n+k patts)
+-- !!! Jon Hill reported a bug in desugaring this in 0.09
+-- !!! (recursive with n+k patts)
--
module ShouldSucceed where
diff --git a/ghc/tests/deSugar/should_compile/ds039.hs b/ghc/tests/deSugar/should_compile/ds039.hs
index e153bfa51a2c..a6588a4d42a7 100644
--- a/ghc/tests/deSugar/should_compile/ds039.hs
+++ b/ghc/tests/deSugar/should_compile/ds039.hs
@@ -1,5 +1,5 @@
---!!! make sure correct type applications get put in
---!!! when (:) is saturated.
+-- !!! make sure correct type applications get put in
+-- !!! when (:) is saturated.
module ShouldSucceed where
diff --git a/ghc/tests/deSugar/should_compile/ds040.hs b/ghc/tests/deSugar/should_compile/ds040.hs
index 6d1c17e3f238..8be249b4f763 100644
--- a/ghc/tests/deSugar/should_compile/ds040.hs
+++ b/ghc/tests/deSugar/should_compile/ds040.hs
@@ -1,4 +1,4 @@
---!!! Another bug in overloaded n+k patts
+-- !!! Another bug in overloaded n+k patts
--
main = print ((4::Int) ^^^^ (6::Int))
diff --git a/ghc/tests/deSugar/should_run/dsrun006.hs b/ghc/tests/deSugar/should_run/dsrun006.hs
index 0bcda9650e4b..759c9c542db5 100644
--- a/ghc/tests/deSugar/should_run/dsrun006.hs
+++ b/ghc/tests/deSugar/should_run/dsrun006.hs
@@ -27,7 +27,7 @@ fails with:
data X = A {a :: Int} | B {a :: Int}
-f x = let A {a} = x
+f x = let A {a=a} = x
in a
main = print (f (A {a = 3}))
--
GitLab