diff options
| author | John Ericson <John.Ericson@Obsidian.Systems> | 2020-05-07 10:02:24 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-05-21 12:17:30 -0400 |
| commit | 6890c38d4568ca444cccc47dd1a86c5e020c3521 (patch) | |
| tree | 9a150fa6b9f9394924e76acff6365edafa46ede2 | |
| parent | cb4231db322f4a2bb146c456852df6cdf1498dca (diff) | |
| download | haskell-6890c38d4568ca444cccc47dd1a86c5e020c3521.tar.gz | |
Use braces with do in `SplicePat` case for consistency
| -rw-r--r-- | compiler/GHC/Tc/Gen/Pat.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Tc/Gen/Pat.hs b/compiler/GHC/Tc/Gen/Pat.hs index 2480835729..58f64f84ae 100644 --- a/compiler/GHC/Tc/Gen/Pat.hs +++ b/compiler/GHC/Tc/Gen/Pat.hs @@ -650,8 +650,8 @@ AST is used for the subtraction operation. -- See Note [Delaying modFinalizers in untyped splices] in GHC.Rename.Splice. SplicePat _ splice -> case splice of (HsSpliced _ mod_finalizers (HsSplicedPat pat)) -> do - addModFinalizersWithLclEnv mod_finalizers - tc_pat pat_ty penv pat thing_inside + { addModFinalizersWithLclEnv mod_finalizers + ; tc_pat pat_ty penv pat thing_inside } _ -> panic "invalid splice in splice pat" |