diff options
| author | Hécate <hecate+gitlab@glitchbra.in> | 2020-09-18 20:07:49 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-09-23 20:44:24 -0400 |
| commit | 31fea307499009977fdf3dadedc98cfef986077a (patch) | |
| tree | cac7edf234b82d16c3edd53fc38539fcc2766cb5 /libraries/base/Debug | |
| parent | a997fa01d907fc1992dc8c3ebc73f98e7a1486f7 (diff) | |
| download | haskell-31fea307499009977fdf3dadedc98cfef986077a.tar.gz | |
Remove redundant "do", "return" and language extensions from base
Diffstat (limited to 'libraries/base/Debug')
| -rw-r--r-- | libraries/base/Debug/Trace.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/Debug/Trace.hs b/libraries/base/Debug/Trace.hs index 1b977bae6e..453b5141b4 100644 --- a/libraries/base/Debug/Trace.hs +++ b/libraries/base/Debug/Trace.hs @@ -78,7 +78,7 @@ import Data.List (null, partition) -- -- @since 4.5.0.0 traceIO :: String -> IO () -traceIO msg = do +traceIO msg = withCString "%s\n" $ \cfmt -> do -- NB: debugBelch can't deal with null bytes, so filter them -- out so we don't accidentally truncate the message. See #9395 |