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 85c8f20 commit 89a758dCopy full SHA for 89a758d
plugins/hls-refactor-plugin/src/Development/IDE/Plugin/CodeAction.hs
@@ -1890,8 +1890,13 @@ extractQualifiedModuleName x
1890
extractDoesNotExportModuleName :: T.Text -> Maybe T.Text
1891
extractDoesNotExportModuleName x
1892
| Just [m] <-
1893
+#if MIN_VERSION_ghc(9,4,0)
1894
+ matchRegexUnifySpaces x "the module ‘([^’]*)’ does not export"
1895
+ <|> matchRegexUnifySpaces x "nor ‘([^’]*)’ export"
1896
+#else
1897
matchRegexUnifySpaces x "Module ‘([^’]*)’ does not export"
1898
<|> matchRegexUnifySpaces x "nor ‘([^’]*)’ exports"
1899
+#endif
1900
= Just m
1901
| otherwise
1902
= Nothing
0 commit comments