- , ( "M" , PassFlag (setMode DoMkDependHS))
- , ( "E" , PassFlag (setMode (StopBefore anyHsc)))
- , ( "C" , PassFlag (\f -> do setMode (StopBefore HCc) f
- addFlag "-fvia-C"))
- , ( "S" , PassFlag (setMode (StopBefore As)))
- , ( "-make" , PassFlag (setMode DoMake))
- , ( "-interactive" , PassFlag (setMode DoInteractive))
- , ( "e" , HasArg (\s -> setMode (DoEval s) "-e"))
-
- -- -fno-code says to stop after Hsc but don't generate any code.
- , ( "fno-code" , PassFlag (\f -> do setMode (StopBefore HCc) f
- addFlag "-fno-code"
- addFlag "-no-recomp"))
+ , Flag "M" (PassFlag (setMode DoMkDependHS))
+ , Flag "E" (PassFlag (setMode (StopBefore anyHsc)))
+ , Flag "C" (PassFlag (\f -> do setMode (StopBefore HCc) f
+ addFlag "-fvia-C"))
+ , Flag "S" (PassFlag (setMode (StopBefore As)))
+ , Flag "-make" (PassFlag (setMode DoMake))
+ , Flag "-interactive" (PassFlag (setMode DoInteractive))
+ , Flag "e" (HasArg (\s -> updateMode (updateDoEval s) "-e"))
+
+ -- -fno-code says to stop after Hsc but don't generate any code.
+ , Flag "fno-code" (PassFlag (\f -> do setMode (StopBefore HCc) f
+ addFlag "-fno-code"
+ addFlag "-no-recomp"))