[#104] Support PolymorphicComponents as language pragma

kowainik · Dec 16, 2024 · 9963a51 · 9963a51
1 parent 6b7fcbb
commit 9963a51
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/src/Extensions/Types.hs b/src/Extensions/Types.hs
@@ -200,6 +200,7 @@ readExtension = \case
     "RecordPuns"                 -> Nothing
 #endif
     "Rank2Types"                 -> Just RankNTypes
+    "PolymorphicComponents"      -> Just RankNTypes
     "CPP"                        -> Just Cpp
     "Cpp"                        -> Nothing
     s                            -> readMaybe s

diff --git a/test/Test/Extensions/Module.hs b/test/Test/Extensions/Module.hs
@@ -69,6 +69,9 @@ onlyExtensionsSpec = describe "Parsing only extensions without anything else" $
     itShouldParseOnOff
         "{-# LANGUAGE NondecreasingIndentation #-}"
         [On NondecreasingIndentation]
+    itShouldParseOnOff
+        "{-# LANGUAGE PolymorphicComponents #-}"
+        [On RankNTypes]
     itShouldParse "{-#language TypeApplications#-}" [TypeApplications]
     itShouldParse "{-# LANGUAGE TypeApplications, LambdaCase#-}" [TypeApplications, LambdaCase]
     itShouldParse "{-# LANGUAGE   TypeApplications  , LambdaCase   #-}" [TypeApplications, LambdaCase]