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/CoreToStg.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/CoreToStg.hs')
| -rw-r--r-- | compiler/stgSyn/CoreToStg.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/stgSyn/CoreToStg.hs b/compiler/stgSyn/CoreToStg.hs index 07db9bf775..0f81ab3027 100644 --- a/compiler/stgSyn/CoreToStg.hs +++ b/compiler/stgSyn/CoreToStg.hs @@ -480,7 +480,7 @@ coreToStgExpr e = pprPanic "coreToStgExpr" (ppr e) mkStgAltType :: Id -> [CoreAlt] -> AltType mkStgAltType bndr alts = case repType (idType bndr) of UnaryRep rep_ty -> case tyConAppTyCon_maybe rep_ty of - Just tc | isUnLiftedTyCon tc -> PrimAlt tc + Just tc | isUnliftedTyCon tc -> PrimAlt tc | isAbstractTyCon tc -> look_for_better_tycon | isAlgTyCon tc -> AlgAlt tc | otherwise -> ASSERT2( _is_poly_alt_tycon tc, ppr tc ) @@ -654,7 +654,7 @@ coreToStgArgs (arg : args) = do -- Non-type argument let arg_ty = exprType arg stg_arg_ty = stgArgType stg_arg - bad_args = (isUnLiftedType arg_ty && not (isUnLiftedType stg_arg_ty)) + bad_args = (isUnliftedType arg_ty && not (isUnliftedType stg_arg_ty)) || (map typePrimRep (flattenRepType (repType arg_ty)) /= map typePrimRep (flattenRepType (repType stg_arg_ty))) -- In GHCi we coerce an argument of type BCO# (unlifted) to HValue (lifted), |