diff options
| author | Daniel Rogozin <daniel.rogozin@serokell.io> | 2020-08-14 14:59:57 +0300 |
|---|---|---|
| committer | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2021-02-05 18:11:48 +0300 |
| commit | f311442cb18c1b380d342f4894f274a346bcb26c (patch) | |
| tree | 190be93433d5c81538d92b2663b4fa6f310ffadb /haddock-api/src/Haddock/Convert.hs | |
| parent | 1bdbf284b4ba20ee1738b13c4e3414384955f6f3 (diff) | |
type level characters support for haddock (required for #11342)
Diffstat (limited to 'haddock-api/src/Haddock/Convert.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Convert.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/haddock-api/src/Haddock/Convert.hs b/haddock-api/src/Haddock/Convert.hs index b59602b6..b866218f 100644 --- a/haddock-api/src/Haddock/Convert.hs +++ b/haddock-api/src/Haddock/Convert.hs @@ -811,6 +811,7 @@ synifyPatSynType ps = synifyTyLit :: TyLit -> HsTyLit synifyTyLit (NumTyLit n) = HsNumTy NoSourceText n synifyTyLit (StrTyLit s) = HsStrTy NoSourceText s +synifyTyLit (CharTyLit c) = HsCharTy NoSourceText c synifyKindSig :: Kind -> LHsKind GhcRn synifyKindSig k = synifyType WithinType [] k |