diff options
| author | Alec Theriault <alec.theriault@gmail.com> | 2019-02-10 06:20:18 -0500 |
|---|---|---|
| committer | Alec Theriault <alec.theriault@gmail.com> | 2019-02-10 06:21:55 -0500 |
| commit | 8ceef39304cf14741f08abdaac26099f9f1b8055 (patch) | |
| tree | 2a56ae1e6f4401a205d67529d8c3e0fb2868ae10 /haddock-api/src/Haddock/Interface/Rename.hs | |
| parent | 5fe0ac7b9eb2a7e5ba5350d85a74b2e4d8a27c60 (diff) | |
| parent | 3ee6526d4ae7bf4deb7cd1caf24b3d7355573576 (diff) | |
Merge remote-tracking branch 'gitlab/wip/T16236-2' into ghc-head
Diffstat (limited to 'haddock-api/src/Haddock/Interface/Rename.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Interface/Rename.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Interface/Rename.hs b/haddock-api/src/Haddock/Interface/Rename.hs index 57e6d699..10b0765d 100644 --- a/haddock-api/src/Haddock/Interface/Rename.hs +++ b/haddock-api/src/Haddock/Interface/Rename.hs @@ -186,8 +186,8 @@ renameLType = mapM renameType renameLTypeArg :: LHsTypeArg GhcRn -> RnM (LHsTypeArg DocNameI) renameLTypeArg (HsValArg ty) = do { ty' <- renameLType ty ; return $ HsValArg ty' } -renameLTypeArg (HsTypeArg ki) = do { ki' <- renameLKind ki - ; return $ HsTypeArg ki' } +renameLTypeArg (HsTypeArg l ki) = do { ki' <- renameLKind ki + ; return $ HsTypeArg l ki' } renameLTypeArg (HsArgPar sp) = return $ HsArgPar sp renameLSigType :: LHsSigType GhcRn -> RnM (LHsSigType DocNameI) |