We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 7ffced1 commit 5b83a90Copy full SHA for 5b83a90
plugins/hls-refactor-plugin/src/Development/IDE/Plugin/CodeAction.hs
@@ -1891,8 +1891,13 @@ extractQualifiedModuleName x
1891
extractDoesNotExportModuleName :: T.Text -> Maybe T.Text
1892
extractDoesNotExportModuleName x
1893
| Just [m] <-
1894
+#if MIN_VERSION_ghc(9,4,0)
1895
+ matchRegexUnifySpaces x "the module ‘([^’]*)’ does not export"
1896
+ <|> matchRegexUnifySpaces x "nor ‘([^’]*)’ export"
1897
+#else
1898
matchRegexUnifySpaces x "Module ‘([^’]*)’ does not export"
1899
<|> matchRegexUnifySpaces x "nor ‘([^’]*)’ exports"
1900
+#endif
1901
= Just m
1902
| otherwise
1903
= Nothing
0 commit comments