From 0f6a628a149dd46960d701ae54fdfc057a168640 Mon Sep 17 00:00:00 2001 From: Simon Peyton Jones Date: Mon, 25 Nov 2013 17:25:14 +0000 Subject: Track changes in HsSpliceTy data constructor --- src/Haddock/Interface/Rename.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Haddock/Interface/Rename.hs') 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 -- cgit v1.2.3