diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-01-27 13:15:15 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-01-27 13:56:48 +0100 |
| commit | 4faa1a63d0496fd511d2d139622dbf7ef2ce4655 (patch) | |
| tree | a0877a6063443197c5425c506ed14354d9fe8060 /compiler/stgSyn/StgLint.hs | |
| parent | 45c6fbc5284f83e1253ff9f3b49fe54a76c20ba7 (diff) | |
| download | haskell-4faa1a63d0496fd511d2d139622dbf7ef2ce4655.tar.gz | |
s/unLifted/unlifted for consistency
This was causing trouble as we had to remember when to use "unLifted"
and when to use "unlifted".
"unlifted" is used instead of "unLifted" as it's a single word.
Reviewers: austin, hvr, goldfire, bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1852
Diffstat (limited to 'compiler/stgSyn/StgLint.hs')
| -rw-r--r-- | compiler/stgSyn/StgLint.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/stgSyn/StgLint.hs b/compiler/stgSyn/StgLint.hs index 1499ae216c..a871778e32 100644 --- a/compiler/stgSyn/StgLint.hs +++ b/compiler/stgSyn/StgLint.hs @@ -105,8 +105,8 @@ lint_binds_help (binder, rhs) _maybe_rhs_ty <- lintStgRhs rhs -- Check binder doesn't have unlifted type - checkL (not (isUnLiftedType binder_ty)) - (mkUnLiftedTyMsg binder rhs) + checkL (not (isUnliftedType binder_ty)) + (mkUnliftedTyMsg binder rhs) -- Check match to RHS type -- Actually we *can't* check the RHS type, because @@ -520,8 +520,8 @@ _mkRhsMsg binder ty hsep [text "Rhs type:", ppr ty] ] -mkUnLiftedTyMsg :: Id -> StgRhs -> SDoc -mkUnLiftedTyMsg binder rhs +mkUnliftedTyMsg :: Id -> StgRhs -> SDoc +mkUnliftedTyMsg binder rhs = (text "Let(rec) binder" <+> quotes (ppr binder) <+> text "has unlifted type" <+> quotes (ppr (idType binder))) $$ |