diff options
| author | simonpj@microsoft.com <unknown> | 2008-04-22 11:28:04 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2008-04-22 11:28:04 +0000 |
| commit | dd99b6f8c61f393087d03cd697c06051a43ca4e9 (patch) | |
| tree | 518524fb383b4be4fc642bfb2b0f93aeadae1f71 /compiler/hsSyn/HsUtils.lhs | |
| parent | e314b86f6290e5440a46cd5cc29f7878cb78c6fb (diff) | |
| download | haskell-dd99b6f8c61f393087d03cd697c06051a43ca4e9.tar.gz | |
Rename WpCo to WpCast
Diffstat (limited to 'compiler/hsSyn/HsUtils.lhs')
| -rw-r--r-- | compiler/hsSyn/HsUtils.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/hsSyn/HsUtils.lhs b/compiler/hsSyn/HsUtils.lhs index ee10a42379..d85db1a4b7 100644 --- a/compiler/hsSyn/HsUtils.lhs +++ b/compiler/hsSyn/HsUtils.lhs @@ -85,11 +85,11 @@ mkHsWrap co_fn e | isIdHsWrapper co_fn = e mkHsWrapCoI :: CoercionI -> HsExpr id -> HsExpr id mkHsWrapCoI IdCo e = e -mkHsWrapCoI (ACo co) e = mkHsWrap (WpCo co) e +mkHsWrapCoI (ACo co) e = mkHsWrap (WpCast co) e coiToHsWrapper :: CoercionI -> HsWrapper coiToHsWrapper IdCo = idHsWrapper -coiToHsWrapper (ACo co) = WpCo co +coiToHsWrapper (ACo co) = WpCast co mkHsLam :: [LPat id] -> LHsExpr id -> LHsExpr id mkHsLam pats body = mkHsPar (L (getLoc body) (HsLam matches)) |