diff options
| author | Iavor S. Diatchki <iavor.diatchki@gmail.com> | 2012-03-19 20:31:27 -0700 |
|---|---|---|
| committer | Iavor S. Diatchki <iavor.diatchki@gmail.com> | 2012-03-19 20:31:27 -0700 |
| commit | 780fdc54b96c40aedb75db4638530c110c07e96f (patch) | |
| tree | c73173f23e5350f54c0026a7a00b41620e8a0f5d /src/Haddock/Interface | |
| parent | 4604487195dbeae627f3c9f9c9f590c25b6634d4 (diff) | |
Add a missing case for type literals.
Diffstat (limited to 'src/Haddock/Interface')
| -rw-r--r-- | src/Haddock/Interface/Rename.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index 6034688e..0e75fef7 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -259,6 +259,8 @@ renameType t = case t of doc' <- renameLDocHsSyn doc return (HsDocTy ty' doc') + HsTyLit x -> return (HsTyLit x) + _ -> error "renameType" |