diff options
| author | usrbincc <usrbincc@yahoo.com> | 2013-05-21 13:36:39 -0400 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-06-04 20:30:57 +0100 |
| commit | 22e5b884280c7c62bcea38491018d5a1ec9a7a14 (patch) | |
| tree | 1164996ab49e9df561bd4f31ddd985a603789c55 /ghc | |
| parent | bc44435dc2f6cda1071c68b79ace5b390a89244c (diff) | |
| download | haskell-22e5b884280c7c62bcea38491018d5a1ec9a7a14.tar.gz | |
Formatting only: fix alignment.
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/InteractiveUI.hs | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index a6b08ead5a..452e5f14bd 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -1876,18 +1876,18 @@ setCmd "" = showOptions False setCmd "-a" = showOptions True setCmd str = case getCmd str of - Right ("args", rest) -> + Right ("args", rest) -> case toArgs rest of Left err -> liftIO (hPutStrLn stderr err) Right args -> setArgs args - Right ("prog", rest) -> + Right ("prog", rest) -> case toArgs rest of Right [prog] -> setProg prog _ -> liftIO (hPutStrLn stderr "syntax: :set prog <progname>") - Right ("prompt", rest) -> setPrompt $ dropWhile isSpace rest + Right ("prompt", rest) -> setPrompt $ dropWhile isSpace rest Right ("prompt2", rest) -> setPrompt2 $ dropWhile isSpace rest - Right ("editor", rest) -> setEditor $ dropWhile isSpace rest - Right ("stop", rest) -> setStop $ dropWhile isSpace rest + Right ("editor", rest) -> setEditor $ dropWhile isSpace rest + Right ("stop", rest) -> setStop $ dropWhile isSpace rest _ -> case toArgs str of Left err -> liftIO (hPutStrLn stderr err) Right wds -> setOptions wds @@ -2067,12 +2067,12 @@ unsetOptions str (other_opts, rest3) = partition (`elem` map fst defaulters) rest2 defaulters = - [ ("args" , setArgs default_args) - , ("prog" , setProg default_progname) - , ("prompt", setPrompt default_prompt) + [ ("args" , setArgs default_args) + , ("prog" , setProg default_progname) + , ("prompt" , setPrompt default_prompt) , ("prompt2", setPrompt2 default_prompt2) - , ("editor", liftIO findEditor >>= setEditor) - , ("stop" , setStop default_stop) + , ("editor" , liftIO findEditor >>= setEditor) + , ("stop" , setStop default_stop) ] no_flag ('-':'f':rest) = return ("-fno-" ++ rest) |