wip

mihaimaruseac · Sep 7, 2024 · 4abb565 · 4abb565
1 parent 720a193
commit 4abb565
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/src/HIndent/Pretty/NodeComments.hs b/src/HIndent/Pretty/NodeComments.hs
@@ -455,15 +455,17 @@ instance CommentExtraction (HsLocalBindsLR GhcPs GhcPs) where
 instance CommentExtraction (HsValBindsLR GhcPs GhcPs) where
   nodeComments ValBinds {} = emptyNodeComments
   nodeComments XValBindsLR {} = notUsedInParsedStage
-#if MIN_VERSION_ghc_lib_parser(9, 10, 1)
+
 instance CommentExtraction (HsTupArg GhcPs) where
-  nodeComments Present {} = emptyNodeComments
-  nodeComments (Missing x) = nodeComments x
+  nodeComments = nodeCommentsHsTupArg
+
+nodeCommentsHsTupArg :: HsTupArg GhcPs -> NodeComments
+#if MIN_VERSION_ghc_lib_parser(9, 10, 1)
+nodeCommentsHsTupArg Present {} = emptyNodeComments
 #else
-instance CommentExtraction (HsTupArg GhcPs) where
-  nodeComments (Present x _) = nodeComments x
-  nodeComments (Missing x) = nodeComments x
+nodeCommentsHsTupArg (Present x _) = nodeComments x
 #endif
+nodeCommentsHsTupArg (Missing x) = nodeComments x
 #if MIN_VERSION_ghc_lib_parser(9, 4, 1)
 instance CommentExtraction RecConField where
   nodeComments (RecConField x) = nodeComments x