From f586a36da133d01607f1936f771722e88b3b3574 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 14 Jun 2008 14:20:56 +0000 Subject: [PATCH] eta-reduce a Monad type synonym, so we can use it non-applied --- compiler/main/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4