diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-11-25 17:25:14 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-11-25 17:25:14 +0000 |
| commit | 0f6a628a149dd46960d701ae54fdfc057a168640 (patch) | |
| tree | 52459506d22714cc805e947d9b19496835edf7d8 /src/Haddock/Interface/Rename.hs | |
| parent | 32540bba5bc83241e9108c19cb9b25af9e0f7c77 (diff) | |
Track changes in HsSpliceTy data constructor
Diffstat (limited to 'src/Haddock/Interface/Rename.hs')
| -rw-r--r-- | src/Haddock/Interface/Rename.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index a5ed47e6..fd652cda 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -276,7 +276,7 @@ renameType t = case t of HsExplicitListTy a b -> HsExplicitListTy a <$> mapM renameLType b HsExplicitTupleTy a b -> HsExplicitTupleTy a <$> mapM renameLType b HsQuasiQuoteTy a -> HsQuasiQuoteTy <$> renameHsQuasiQuote a - HsSpliceTy _ _ _ -> error "renameType: HsSpliceTy" + HsSpliceTy _ _ -> error "renameType: HsSpliceTy" renameHsQuasiQuote :: HsQuasiQuote Name -> RnM (HsQuasiQuote DocName) renameHsQuasiQuote (HsQuasiQuote a b c) = HsQuasiQuote <$> rename a <*> pure b <*> pure c |