diff options
Diffstat (limited to 'compiler/GHC/Utils')
| -rw-r--r-- | compiler/GHC/Utils/Logger.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/Utils/Monad.hs | 4 | ||||
| -rw-r--r-- | compiler/GHC/Utils/Outputable.hs | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/compiler/GHC/Utils/Logger.hs b/compiler/GHC/Utils/Logger.hs index 7cafeae2ff..cb79b7320b 100644 --- a/compiler/GHC/Utils/Logger.hs +++ b/compiler/GHC/Utils/Logger.hs @@ -409,7 +409,7 @@ defaultDumpAction dumps log_action logflags sty flag title _fmt doc = -- | Write out a dump. -- -- If --dump-to-file is set then this goes to a file. --- otherwise emit to stdout (via the the LogAction parameter). +-- otherwise emit to stdout (via the LogAction parameter). -- -- When @hdr@ is empty, we print in a more compact format (no separators and -- blank lines) diff --git a/compiler/GHC/Utils/Monad.hs b/compiler/GHC/Utils/Monad.hs index a0cac350fe..d814fe9c92 100644 --- a/compiler/GHC/Utils/Monad.hs +++ b/compiler/GHC/Utils/Monad.hs @@ -346,7 +346,7 @@ smart constructor alone we still need the data constructor in patterns.) That's the advantage of the pattern-synonym approach, but it is more elaborate. -The pattern synonym approach is due to Sebastian Graaf (#18238) +The pattern synonym approach is due to Sebastian Graf (#18238) Do note that for monads for multiple arguments more than one oneShot function might be required. For example in FCode we use: @@ -426,7 +426,7 @@ replaced by (expensive x), but full laziness should pull it back out. The magic `inline` function does two things * It prevents eta reduction. If we wrote just multiShotIO (IO m) = IO (\s -> m s) - the lamda would eta-reduce to 'm' and all would be lost. + the lambda would eta-reduce to 'm' and all would be lost. * It helps ensure that 'm' really does inline. diff --git a/compiler/GHC/Utils/Outputable.hs b/compiler/GHC/Utils/Outputable.hs index 1d8b962f71..4c5eedab34 100644 --- a/compiler/GHC/Utils/Outputable.hs +++ b/compiler/GHC/Utils/Outputable.hs @@ -363,7 +363,7 @@ data SDocContext = SDC , sdocLineLength :: !Int , sdocCanUseUnicode :: !Bool -- ^ True if Unicode encoding is supported - -- and not disable by GHC_NO_UNICODE environment variable + -- and not disabled by GHC_NO_UNICODE environment variable , sdocHexWordLiterals :: !Bool , sdocPprDebug :: !Bool , sdocPrintUnicodeSyntax :: !Bool |