diff options
| author | alexbiehl <alex.biehl@gmail.com> | 2018-02-06 08:28:23 +0100 |
|---|---|---|
| committer | alexbiehl <alex.biehl@gmail.com> | 2018-02-06 08:28:23 +0100 |
| commit | ddd4227d02e829f400ef06c934f75eda4a2dfd93 (patch) | |
| tree | c5d4519030892560c022cd43ec66c4077a4a764c | |
| parent | 1446450a2e9b4bacf32931ee58199bfc3c6ff3ac (diff) | |
Rename: renameHsSpliceTy ttg
| -rw-r--r-- | haddock-api/src/Haddock/Interface/Rename.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Interface/Rename.hs b/haddock-api/src/Haddock/Interface/Rename.hs index 78ab5a08..df25e6a7 100644 --- a/haddock-api/src/Haddock/Interface/Rename.hs +++ b/haddock-api/src/Haddock/Interface/Rename.hs @@ -283,7 +283,7 @@ renameType t = case t of -- * the input is from after GHC's renamer, so should have an 'HsSpliced' -- * the input is typechecked, and only 'HsSplicedTy' should get through that -- -renameHsSpliceTy :: HsSplice Name -> RnM (HsType DocName) +renameHsSpliceTy :: HsSplice GhcRn -> RnM (HsType DocNameI) renameHsSpliceTy (HsSpliced _ (HsSplicedTy t)) = renameType t renameHsSpliceTy (HsSpliced _ _) = error "renameHsSpliceTy: not an HsSplicedTy" renameHsSpliceTy _ = error "renameHsSpliceTy: not an HsSpliced" |