diff options
| author | Ben Gamari <ben@well-typed.com> | 2023-01-17 21:03:40 +0000 |
|---|---|---|
| committer | Ben Gamari <ben@well-typed.com> | 2023-01-17 21:03:40 +0000 |
| commit | 7deb1e09b62db71363fd91622067db3f042fc197 (patch) | |
| tree | 69b22eca6e75c65d77f4ba1c74bc2406ab121d67 | |
| parent | fc02f3bbb5f47f880465e22999ba9794f658d8f6 (diff) | |
| download | haskell-wip/mr9323-wibbles.tar.gz | |
compiler: A few wibbles from ConstPtr patchwip/mr9323-wibbles
This fixes a typo and small style issue that I found when
auditing !9323.
| -rw-r--r-- | compiler/GHC/HsToCore/Foreign/C.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/HsToCore/Foreign/C.hs b/compiler/GHC/HsToCore/Foreign/C.hs index 28ef42e2b9..b937c00df7 100644 --- a/compiler/GHC/HsToCore/Foreign/C.hs +++ b/compiler/GHC/HsToCore/Foreign/C.hs @@ -250,11 +250,11 @@ dsFCall fn_id co fcall mDeclHeader = do (tv_bndrs, rho) = tcSplitForAllTyVarBinders ty (arg_tys, io_res_ty) = tcSplitFunTys rho - let constQual -- provide 'const' qualifier (#22034) + let constQual -- provide 'const' qualifier (#22043) | (_, res_ty1) <- tcSplitFunTys ty1 , newty <- maybe res_ty1 snd (tcSplitIOType_maybe res_ty1) , Just (ptr, _) <- splitTyConApp_maybe newty - , tyConName ptr `elem` [constPtrConName] + , tyConName ptr == constPtrConName = text "const" | otherwise = empty |