wip

mihaimaruseac · Sep 14, 2024 · 604e751 · 604e751
1 parent e992483
commit 604e751
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/HIndent/Ast/Module/Export/Entry.hs b/src/HIndent/Ast/Module/Export/Entry.hs
@@ -20,7 +20,7 @@ data ExportEntry
   | WithSpecificConstructors
       (WithComments (GHC.IEWrappedName GHC.GhcPs))
       [WithComments (GHC.IEWrappedName GHC.GhcPs)]
-  | WithAllConstructors (GHC.LIEWrappedName GHC.GhcPs)
+  | WithAllConstructors (WithComments (GHC.IEWrappedName GHC.GhcPs))
   | ByModule (GHC.GenLocated GHC.SrcSpanAnnA GHC.ModuleName)
 #else
 data ExportEntry
@@ -53,7 +53,8 @@ mkExportEntry (GHC.IEThingWith _ name _ constructors _) =
 #else
 mkExportEntry (GHC.IEVar _ name) = SingleIdentifier $ fromGenLocated name
 mkExportEntry (GHC.IEThingAbs _ name) = SingleIdentifier $ fromGenLocated name
-mkExportEntry (GHC.IEThingAll _ name) = WithAllConstructors name
+mkExportEntry (GHC.IEThingAll _ name) =
+  WithAllConstructors $ fromGenLocated name
 mkExportEntry (GHC.IEThingWith _ name _ constructors) =
   WithSpecificConstructors
     (fromGenLocated name)