Use U+2018 instead of U+201B quote mark in compiler messages

This matches GCC's choice of Unicode quotation marks (i.e. U+2018 and U+2019)
and therefore looks more familiar on the console. This addresses #2507.

Signed-off-by: Herbert Valerio Riedel <hvr@gnu.org>

6 files changed, 32 insertions, 32 deletions

diff --git a/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail01.stderr b/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail01.stderr
index 74ca081ac4..cd18d1c39c 100644
--- a/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail01.stderr
+++ b/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail01.stderr
@@ -1,36 +1,36 @@
 
 overloadedlistsfail01.hs:5:8:
-    No instance for (Show a0) arising from a use of ‛print’
-    The type variable ‛a0’ is ambiguous
+    No instance for (Show a0) arising from a use of ‘print’
+    The type variable ‘a0’ is ambiguous
     Note: there are several potential instances:
-      instance Show Double -- Defined in ‛GHC.Float’
-      instance Show Float -- Defined in ‛GHC.Float’
+      instance Show Double -- Defined in ‘GHC.Float’
+      instance Show Float -- Defined in ‘GHC.Float’
       instance (Integral a, Show a) => Show (GHC.Real.Ratio a)
-        -- Defined in ‛GHC.Real’
+        -- Defined in ‘GHC.Real’
       ...plus 24 others
     In the expression: print [1]
-    In an equation for ‛main’: main = print [1]
+    In an equation for ‘main’: main = print [1]
 
 overloadedlistsfail01.hs:5:14:
     No instance for (GHC.Exts.IsList a0)
       arising from an overloaded list
-    The type variable ‛a0’ is ambiguous
+    The type variable ‘a0’ is ambiguous
     Note: there is a potential instance available:
-      instance GHC.Exts.IsList [a] -- Defined in ‛GHC.Exts’
-    In the first argument of ‛print’, namely ‛[1]’
+      instance GHC.Exts.IsList [a] -- Defined in ‘GHC.Exts’
+    In the first argument of ‘print’, namely ‘[1]’
     In the expression: print [1]
-    In an equation for ‛main’: main = print [1]
+    In an equation for ‘main’: main = print [1]
 
 overloadedlistsfail01.hs:5:15:
     No instance for (Num (GHC.Exts.Item a0))
-      arising from the literal ‛1’
-    The type variable ‛a0’ is ambiguous
+      arising from the literal ‘1’
+    The type variable ‘a0’ is ambiguous
     Note: there are several potential instances:
-      instance Num Double -- Defined in ‛GHC.Float’
-      instance Num Float -- Defined in ‛GHC.Float’
+      instance Num Double -- Defined in ‘GHC.Float’
+      instance Num Float -- Defined in ‘GHC.Float’
       instance Integral a => Num (GHC.Real.Ratio a)
-        -- Defined in ‛GHC.Real’
+        -- Defined in ‘GHC.Real’
       ...plus three others
     In the expression: 1
-    In the first argument of ‛print’, namely ‛[1]’
+    In the first argument of ‘print’, namely ‘[1]’
     In the expression: print [1]
diff --git a/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail02.stderr b/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail02.stderr
index 62f8a0e0bd..d5f52fd66e 100644
--- a/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail02.stderr
+++ b/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail02.stderr
@@ -3,11 +3,11 @@ overloadedlistsfail02.hs:6:8:
     No instance for (GHC.Exts.IsList Foo)
       arising from an overloaded list
     In the expression: [7]
-    In an equation for ‛test’: test = [7]
+    In an equation for ‘test’: test = [7]
 
 overloadedlistsfail02.hs:6:9:
     No instance for (Num (GHC.Exts.Item Foo))
-      arising from the literal ‛7’
+      arising from the literal ‘7’
     In the expression: 7
     In the expression: [7]
-    In an equation for ‛test’: test = [7]
+    In an equation for ‘test’: test = [7]
diff --git a/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail03.stderr b/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail03.stderr
index cd8cbff032..9c2e41640e 100644
--- a/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail03.stderr
+++ b/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail03.stderr
@@ -1,6 +1,6 @@
 
 overloadedlistsfail03.hs:3:27:
-    Couldn't match expected type ‛Char’ with actual type ‛[Char]’
+    Couldn't match expected type ‘Char’ with actual type ‘[Char]’
     In the expression: "b"
-    In the first argument of ‛length’, namely ‛['a', "b"]’
-    In the first argument of ‛print’, namely ‛(length ['a', "b"])’
+    In the first argument of ‘length’, namely ‘['a', "b"]’
+    In the first argument of ‘print’, namely ‘(length ['a', "b"])’
diff --git a/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail04.stderr b/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail04.stderr
index 145c6cd1fe..93811d40c7 100644
--- a/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail04.stderr
+++ b/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail04.stderr
@@ -1,8 +1,8 @@
 
 overloadedlistsfail04.hs:3:15:
     No instance for (Enum [Char])
-      arising from the arithmetic sequence ‛"a" .. "b"’
-    In the first argument of ‛print’, namely
-      ‛(["a" .. "b"] :: [String])’
+      arising from the arithmetic sequence ‘"a" .. "b"’
+    In the first argument of ‘print’, namely
+      ‘(["a" .. "b"] :: [String])’
     In the expression: print (["a" .. "b"] :: [String])
-    In an equation for ‛main’: main = print (["a" .. "b"] :: [String])
+    In an equation for ‘main’: main = print (["a" .. "b"] :: [String])
diff --git a/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail05.stderr b/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail05.stderr
index 131294b138..c576b5868c 100644
--- a/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail05.stderr
+++ b/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail05.stderr
@@ -1,7 +1,7 @@
 
 overloadedlistsfail05.hs:3:29:
-    Couldn't match expected type ‛Char’ with actual type ‛Int’
+    Couldn't match expected type ‘Char’ with actual type ‘Int’
     In the expression: (10 :: Int)
-    In the first argument of ‛length’, namely ‛['a' .. (10 :: Int)]’
-    In the first argument of ‛print’, namely
-      ‛(length ['a' .. (10 :: Int)])’
+    In the first argument of ‘length’, namely ‘['a' .. (10 :: Int)]’
+    In the first argument of ‘print’, namely
+      ‘(length ['a' .. (10 :: Int)])’
diff --git a/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail06.stderr b/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail06.stderr
index 239465670f..472bd787e2 100644
--- a/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail06.stderr
+++ b/testsuite/tests/overloadedlists/should_fail/overloadedlistsfail06.stderr
@@ -1,4 +1,4 @@
 
-overloadedlistsfail06.hs:3:3: Not in scope: ‛toList’
+overloadedlistsfail06.hs:3:3: Not in scope: ‘toList’
 
-overloadedlistsfail06.hs:3:8: Not in scope: ‛fromListN’
+overloadedlistsfail06.hs:3:8: Not in scope: ‘fromListN’