wip

mihaimaruseac · Sep 14, 2024 · 7a66585 · 7a66585
1 parent ad53261
commit 7a66585
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/HIndent/Ast/Module/Export/Entry.hs b/src/HIndent/Ast/Module/Export/Entry.hs
@@ -49,7 +49,9 @@ mkExportEntry (GHC.IEThingAbs _ name _) = SingleIdentifier $ fromGenLocated name
 mkExportEntry (GHC.IEThingAll _ name _) =
   WithAllConstructors $ fromGenLocated name
 mkExportEntry (GHC.IEThingWith _ name _ constructors _) =
-  WithSpecificConstructors (fromGenLocated name) (fromGenLocated constructors)
+  WithSpecificConstructors
+    (fromGenLocated name)
+    (fmap fromGenLocated constructors)
 #else
 mkExportEntry (GHC.IEVar _ name) = SingleIdentifier $ fromGenLocated name
 mkExportEntry (GHC.IEThingAbs _ name) = SingleIdentifier $ fromGenLocated name