diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-01-27 13:34:28 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-02-08 10:24:07 -0500 |
| commit | fb5c19122ea59d1c6758762cb47e1a451bc3b9bf (patch) | |
| tree | e056fac7b6cb7656b80303a0cff4becbfa2a0337 /compiler/main | |
| parent | 95741ea1f93c6d9bac055eb620c8bcda0ec5c72d (diff) | |
| download | haskell-fb5c19122ea59d1c6758762cb47e1a451bc3b9bf.tar.gz | |
Remove redundant case
This alternative is redundant and triggers no warning when building with 8.6.5
Diffstat (limited to 'compiler/main')
| -rw-r--r-- | compiler/main/DynFlags.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 3064c1991d..1ca0f0bb17 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -1353,10 +1353,8 @@ parseCfgWeights s oldWeights = , null rest = [s1] | (s1,rest) <- break (== ',') s - = [s1] ++ settings (drop 1 rest) -#if __GLASGOW_HASKELL__ <= 810 - | otherwise = panic $ "Invalid cfg parameters." ++ exampleString -#endif + = s1 : settings (drop 1 rest) + assignment as | (name, _:val) <- break (== '=') as = (name,read val) |