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/stranal/WwLib.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/stranal/WwLib.hs')
| -rw-r--r-- | compiler/stranal/WwLib.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/stranal/WwLib.hs b/compiler/stranal/WwLib.hs index b9aca82f6a..3d9ab8365a 100644 --- a/compiler/stranal/WwLib.hs +++ b/compiler/stranal/WwLib.hs @@ -207,7 +207,7 @@ mkWorkerArgs dflags args all_one_shot res_ty = (args ++ [newArg], args ++ [voidPrimId]) where needsAValueLambda = - isUnLiftedType res_ty + isUnliftedType res_ty || not (gopt Opt_FunToThunk dflags) -- see Note [Protecting the last value argument] @@ -628,7 +628,7 @@ mkWWcpr_help :: (DataCon, [Type], [Type], Coercion) mkWWcpr_help (data_con, inst_tys, arg_tys, co) | [arg_ty1] <- arg_tys - , isUnLiftedType arg_ty1 + , isUnliftedType arg_ty1 -- Special case when there is a single result of unlifted type -- -- Wrapper: case (..call worker..) of x -> C x @@ -742,7 +742,7 @@ every primitive type, so the function is partial. mk_absent_let :: DynFlags -> Id -> Maybe (CoreExpr -> CoreExpr) mk_absent_let dflags arg - | not (isUnLiftedType arg_ty) + | not (isUnliftedType arg_ty) = Just (Let (NonRec arg abs_rhs)) | Just tc <- tyConAppTyCon_maybe arg_ty , Just lit <- absentLiteralOf tc |