X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FMain.hs;h=de72089b1c6c561c2098c25237969e29a6d0ac32;hb=f586a36da133d01607f1936f771722e88b3b3574;hp=57cf28ea4e2b3405e7611469607b55861b9cd7a3;hpb=0079141c61f673039ccd879cd75174b33eb40b8f;p=ghc-hetmet.git

diff --git a/compiler/main/Main.hs b/compiler/main/Main.hs
index 57cf28e..de72089 100644
--- a/compiler/main/Main.hs
+++ b/compiler/main/Main.hs
@@ -363,11 +363,11 @@ parseModeFlags args = do
     throwDyn (UsageError (unlines errs))
   return (mode, flags ++ leftover)
 
-type ModeM a = CmdLineP (CmdLineMode, String, [String]) a
+type ModeM = CmdLineP (CmdLineMode, String, [String])
   -- mode flags sometimes give rise to new DynFlags (eg. -C, see below)
   -- so we collect the new ones and return them.
 
-mode_flags :: [Flag (CmdLineP (CmdLineMode, String, [String]))]
+mode_flags :: [Flag ModeM]
 mode_flags =
   [  ------- help / version ----------------------------------------------
     Flag "?"                    (PassFlag (setMode ShowUsage))