wip

mihaimaruseac · Sep 14, 2024 · f8e3367 · f8e3367
1 parent 8b4a2ba
commit f8e3367
Showing 1 changed file with 5 additions and 5 deletions.
diff --git 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 [] [] []