diff options
Diffstat (limited to 'compiler/main/SysTools')
| -rw-r--r-- | compiler/main/SysTools/Tasks.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/SysTools/Tasks.hs b/compiler/main/SysTools/Tasks.hs index 838ab64717..5b0cb1cfa2 100644 --- a/compiler/main/SysTools/Tasks.hs +++ b/compiler/main/SysTools/Tasks.hs @@ -371,4 +371,4 @@ touch dflags purpose arg = traceToolCommand dflags "touch" $ -- to run GHC with @-v2@ or @-ddump-timings@. traceToolCommand :: DynFlags -> String -> IO a -> IO a traceToolCommand dflags tool = withTiming - (return dflags) (text $ "systool:" ++ tool) (const ()) + dflags (text $ "systool:" ++ tool) (const ()) |