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/specialise | |
| 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/specialise')
| -rw-r--r-- | compiler/specialise/Specialise.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/specialise/Specialise.hs b/compiler/specialise/Specialise.hs index d86a95a6b3..a0c8938d70 100644 --- a/compiler/specialise/Specialise.hs +++ b/compiler/specialise/Specialise.hs @@ -1260,7 +1260,7 @@ specCalls mb_mod env rules_for_me calls_for_me fn rhs { -- Figure out the type of the specialised function let body_ty = applyTypeToArgs rhs fn_type rule_args (lam_args, app_args) -- Add a dummy argument if body_ty is unlifted - | isUnLiftedType body_ty -- C.f. WwLib.mkWorkerArgs + | isUnliftedType body_ty -- C.f. WwLib.mkWorkerArgs = (poly_tyvars ++ [voidArgId], poly_tyvars ++ [voidPrimId]) | otherwise = (poly_tyvars, poly_tyvars) spec_id_ty = mkPiTypes lam_args body_ty |