diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2014-02-23 22:00:57 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-02-25 11:06:51 +0100 |
| commit | 018676c7f883886b388652c913c99a10d2591b0b (patch) | |
| tree | ddeb1cd21f74b21f12b1d1ddbc26abb934136587 /compiler | |
| parent | ede5b5180c2a5db3f51b01dbef402d21ace9601c (diff) | |
| download | haskell-018676c7f883886b388652c913c99a10d2591b0b.tar.gz | |
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>
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/main/DynFlags.hs | 2 | ||||
| -rw-r--r-- | compiler/rename/RnEnv.lhs | 2 | ||||
| -rw-r--r-- | compiler/utils/Outputable.lhs | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 2ce5813f46..dcdc4b556d 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -1281,7 +1281,7 @@ initDynFlags dflags = do refRtccInfo <- newIORef Nothing wrapperNum <- newIORef emptyModuleEnv canUseUnicodeQuotes <- do let enc = localeEncoding - str = "‛’" + str = "‘’" (withCString enc str $ \cstr -> do str' <- peekCString enc cstr return (str == str')) diff --git a/compiler/rename/RnEnv.lhs b/compiler/rename/RnEnv.lhs index 2359cac043..49cbbad13d 100644 --- a/compiler/rename/RnEnv.lhs +++ b/compiler/rename/RnEnv.lhs @@ -830,7 +830,7 @@ as if there was an "import qualified M" declaration for every module. If we fail we just return Nothing, rather than bleating -about "attempting to use module ‛D’ (./D.hs) which is not loaded" +about "attempting to use module ‘D’ (./D.hs) which is not loaded" which is what loadSrcInterface does. Note [Safe Haskell and GHCi] diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 8a12670d50..e8d9347767 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -460,7 +460,7 @@ cparen b d = SDoc $ Pretty.cparen b . runSDoc d quotes d = sdocWithDynFlags $ \dflags -> if useUnicodeQuotes dflags - then char '‛' <> d <> char '’' + then char '‘' <> d <> char '’' else SDoc $ \sty -> let pp_d = runSDoc d sty str = show pp_d |