diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-07-01 10:11:48 +0000 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-07-21 13:30:47 +0200 |
| commit | cdc81a1b73bd4d1b330a32870d4369e1a2af3610 (patch) | |
| tree | e03c999a9b829e0d57f675db6fafc994735ed4a0 /haddock-api/src/Haddock/Interface/Specialize.hs | |
| parent | 008e61d0c4b10713751c2a1de4958acc75367396 (diff) | |
Add support for unboxed sums
Diffstat (limited to 'haddock-api/src/Haddock/Interface/Specialize.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Interface/Specialize.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/haddock-api/src/Haddock/Interface/Specialize.hs b/haddock-api/src/Haddock/Interface/Specialize.hs index 198bc4ff..3e0df4e1 100644 --- a/haddock-api/src/Haddock/Interface/Specialize.hs +++ b/haddock-api/src/Haddock/Interface/Specialize.hs @@ -273,6 +273,7 @@ renameType (HsFunTy la lr) = HsFunTy <$> renameLType la <*> renameLType lr renameType (HsListTy lt) = HsListTy <$> renameLType lt renameType (HsPArrTy lt) = HsPArrTy <$> renameLType lt renameType (HsTupleTy srt lt) = HsTupleTy srt <$> mapM renameLType lt +renameType (HsSumTy lt) = HsSumTy <$> mapM renameLType lt renameType (HsOpTy la lop lb) = HsOpTy <$> renameLType la <*> located renameName lop <*> renameLType lb renameType (HsParTy lt) = HsParTy <$> renameLType lt |