From f8e3367f9ec60c34c73a27d3cb053e78624d874c Mon Sep 17 00:00:00 2001 From: Hiroki Tokunaga Date: Sat, 14 Sep 2024 17:06:31 +0900 Subject: [PATCH] wip --- src/HIndent/Ast/Module/Export/Entry.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/HIndent/Ast/Module/Export/Entry.hs b/src/HIndent/Ast/Module/Export/Entry.hs index bb3f71d0b..56a3923e4 100644 --- a/src/HIndent/Ast/Module/Export/Entry.hs +++ b/src/HIndent/Ast/Module/Export/Entry.hs @@ -23,12 +23,12 @@ data ExportEntry | ByModule (WithComments GHC.ModuleName) #else data ExportEntry - = SingleIdentifier (GHC.LIEWrappedName (GHC.IdP GHC.GhcPs)) + = SingleIdentifier (WithComments (GHC.IEWrappedName (GHC.IdP GHC.GhcPs))) | WithSpecificConstructors - (GHC.LIEWrappedName (GHC.IdP GHC.GhcPs)) - [GHC.LIEWrappedName (GHC.IdP GHC.GhcPs)] - | WithAllConstructors (GHC.LIEWrappedName (GHC.IdP GHC.GhcPs)) - | ByModule (GHC.GenLocated GHC.SrcSpanAnnA GHC.ModuleName) + (WithComments (GHC.IEWrappedName (GHC.IdP GHC.GhcPs))) + [WithComments (GHC.IEWrappedName (GHC.IdP GHC.GhcPs))] + | WithAllConstructors (WithComments (GHC.IEWrappedName (GHC.IdP GHC.GhcPs))) + | ByModule (WithComments GHC.ModuleName) #endif instance CommentExtraction ExportEntry where nodeComments SingleIdentifier {} = NodeComments [] [] []