From f9843fcd5515beca2f729fecedc683011f069ab7 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 8 Aug 2001 13:31:05 +0000
Subject: [PATCH 1/1] [project @ 2001-08-08 13:31:05 by simonmar] update
 expected output

---
 ghc/tests/ccall/should_fail/cc001.stderr |    2 +-
 ghc/tests/ccall/should_fail/cc002.stderr |    2 +-
 ghc/tests/ccall/should_fail/cc004.stderr |   10 ++--------
 ghc/tests/ccall/should_fail/cc005.stderr |    6 ++----
 4 files changed, 6 insertions(+), 14 deletions(-)

diff --git a/ghc/tests/ccall/should_fail/cc001.stderr b/ghc/tests/ccall/should_fail/cc001.stderr
index 7e8b44f..bb6a1e8 100644
--- a/ghc/tests/ccall/should_fail/cc001.stderr
+++ b/ghc/tests/ccall/should_fail/cc001.stderr
@@ -3,4 +3,4 @@ cc001.hs:5:
     Ambiguous type variable(s) `t'
 	in the constraint `PrelGHC.CCallable t'
     arising from an argument in the _ccall_ to `foo', namely `(undefined ())' at cc001.hs:5
-    in the definition of function `f': _ccall_ foo (undefined ())
+    In the definition of `f': _ccall_ foo (undefined ())
diff --git a/ghc/tests/ccall/should_fail/cc002.stderr b/ghc/tests/ccall/should_fail/cc002.stderr
index 3852a6a..4089840 100644
--- a/ghc/tests/ccall/should_fail/cc002.stderr
+++ b/ghc/tests/ccall/should_fail/cc002.stderr
@@ -2,4 +2,4 @@
 cc002.hs:10:
     No instance for `PrelGHC.CReturnable ForeignObj'
     arising from the result of the _ccall_ to `a' at cc002.hs:10
-    in the definition of function `a': _ccall_ a
+    In the definition of `a': _ccall_ a
diff --git a/ghc/tests/ccall/should_fail/cc004.stderr b/ghc/tests/ccall/should_fail/cc004.stderr
index 7f24156..09be734 100644
--- a/ghc/tests/ccall/should_fail/cc004.stderr
+++ b/ghc/tests/ccall/should_fail/cc004.stderr
@@ -1,16 +1,10 @@
 
-Cannot generalise these overloadings (in a _ccall_):
-    PrelGHC.CReturnable a arising from the result of the _ccall_ to `f' at cc004.hs:8
-
-Cannot generalise these overloadings (in a _ccall_):
-    PrelGHC.CReturnable a arising from the result of the _ccall_ to `f' at cc004.hs:15
-
 cc004.hs:8:
     Ambiguous type variable(s) `a'
 	in the constraint `PrelGHC.CReturnable a'
     arising from the result of the _ccall_ to `f' at cc004.hs:8
     In the first argument of `thenADR', namely `_ccall_ f'
-    in the definition of function `foo':
+    In the definition of `foo':
 	(_ccall_ f) `thenADR` (\ a -> return (a + 1))
 
 cc004.hs:8:
@@ -24,7 +18,7 @@ cc004.hs:15:
 	in the constraint `PrelGHC.CReturnable a'
     arising from the result of the _ccall_ to `f' at cc004.hs:15
     In the first argument of `thenADR', namely `_ccall_ f'
-    in the definition of function `bar':
+    In the definition of `bar':
 	(_ccall_ f) `thenADR` (\ a -> return (a + 1))
 
 cc004.hs:15:
diff --git a/ghc/tests/ccall/should_fail/cc005.stderr b/ghc/tests/ccall/should_fail/cc005.stderr
index a8ca42b..f207a3e 100644
--- a/ghc/tests/ccall/should_fail/cc005.stderr
+++ b/ghc/tests/ccall/should_fail/cc005.stderr
@@ -1,10 +1,8 @@
 
 cc005.hs:7:
     Unacceptable argument type in foreign declaration: Int#
-    When checking declaration:
-	foreign export _ccall "foo" foo :: Int# -> IO ()
+    When checking declaration: foreign export foo foo :: Int# -> IO ()
 
 cc005.hs:10:
     Unacceptable result type in foreign declaration: Int#
-    When checking declaration:
-	foreign export _ccall "bar" bar :: Int -> Int#
+    When checking declaration: foreign export bar bar :: Int -> Int#
-- 
1.7.10.4