diff options
| author | Erik de Castro Lopo <erikd@mega-nerd.com> | 2012-11-29 21:16:30 +1100 |
|---|---|---|
| committer | Erik de Castro Lopo <erikd@mega-nerd.com> | 2012-11-30 01:27:25 +1100 |
| commit | 77ef6ca06d401eda2aeb51d22d5ce033db667161 (patch) | |
| tree | 21dd2e159a9b7ec568147b6c27e74dc9da954492 /compiler/main/StaticFlags.hs | |
| parent | 086d7c54f5bddbc9e5d94a9ae9c4b5aeeab53a35 (diff) | |
| download | haskell-77ef6ca06d401eda2aeb51d22d5ce033db667161.tar.gz | |
Replace all uses of ghcError with throwGhcException and purge ghcError.
Diffstat (limited to 'compiler/main/StaticFlags.hs')
| -rw-r--r-- | compiler/main/StaticFlags.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs index 49f0ff729b..8c514a5af3 100644 --- a/compiler/main/StaticFlags.hs +++ b/compiler/main/StaticFlags.hs @@ -135,7 +135,7 @@ try_read :: Read a => String -> String -> a try_read sw str = case reads str of ((x,_):_) -> x -- Be forgiving: ignore trailing goop, and alternative parses - [] -> ghcError (UsageError ("Malformed argument " ++ str ++ " for flag " ++ sw)) + [] -> throwGhcException (UsageError ("Malformed argument " ++ str ++ " for flag " ++ sw)) -- ToDo: hack alert. We should really parse the arguments -- and announce errors in a more civilised way. -} |