diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-12-14 16:57:28 +0100 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-12-14 16:57:28 +0100 |
| commit | eeb36ebdfd1361e18a57609dda6524ddd24cdd8d (patch) | |
| tree | a969fd75c780f7f1ea1341e65436cfb84b57d411 /compiler/codeGen/StgCmmUtils.hs | |
| parent | fa1afcde4a3f9caaa0ac37e94f1d8fa3e624405f (diff) | |
| download | haskell-eeb36ebdfd1361e18a57609dda6524ddd24cdd8d.tar.gz | |
typos in local var
Diffstat (limited to 'compiler/codeGen/StgCmmUtils.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmUtils.hs b/compiler/codeGen/StgCmmUtils.hs index 07432c45ab..b6092e8358 100644 --- a/compiler/codeGen/StgCmmUtils.hs +++ b/compiler/codeGen/StgCmmUtils.hs @@ -585,7 +585,7 @@ mk_float_switch rep scrut deflt_blk_id (lo_bound, hi_bound) branches -------------- label_default :: BlockId -> Maybe CmmAGraphScoped -> FCode (Maybe BlockId) label_default _ Nothing - = return Nothing + = return Nothing label_default join_lbl (Just code) = do lbl <- label_code join_lbl code return (Just lbl) |