Commit c395b75c authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix whitespace

parent b774e696
......@@ -376,22 +376,22 @@ mode_flags =
------- interfaces ----------------------------------------------------
, ( "-show-iface" , HasArg (\f -> setMode (ShowInterface f)
"--show-iface"))
"--show-iface"))
------- primary modes ------------------------------------------------
, ( "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))
, ( "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"))
-- -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"))
]
setMode :: CmdLineMode -> String -> ModeM ()
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment