diff options
| -rw-r--r-- | compiler/main/ErrUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/ErrUtils.hs b/compiler/main/ErrUtils.hs index 82587d28bc..5762a57f3e 100644 --- a/compiler/main/ErrUtils.hs +++ b/compiler/main/ErrUtils.hs @@ -323,7 +323,7 @@ chooseDumpFile dflags flag Just d -> d </> f Nothing -> f --- | Build a nice file name from name of a GeneralFlag constructor +-- | Build a nice file name from name of a 'DumpFlag' constructor beautifyDumpName :: DumpFlag -> String beautifyDumpName Opt_D_th_dec_file = "th.hs" beautifyDumpName flag |