aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface
diff options
context:
space:
mode:
authorSimon Peyton Jones <simonpj@microsoft.com>2013-11-25 17:25:14 +0000
committerSimon Peyton Jones <simonpj@microsoft.com>2013-11-25 17:25:14 +0000
commit0f6a628a149dd46960d701ae54fdfc057a168640 (patch)
tree52459506d22714cc805e947d9b19496835edf7d8 /src/Haddock/Interface
parent32540bba5bc83241e9108c19cb9b25af9e0f7c77 (diff)
Track changes in HsSpliceTy data constructor
Diffstat (limited to 'src/Haddock/Interface')
-rw-r--r--src/Haddock/Interface/Rename.hs2
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