Implement unboxed sum primitive type
[ghc.git] / testsuite / tests / driver / T4437.hs
index 48ad93c..45e257e 100644 (file)
@@ -1,3 +1,8 @@
+-- | A test for ensuring that GHC's supporting language extensions remains in
+-- sync with Cabal's own extension list.
+--
+-- If you have ended up here due to a test failure, please see
+-- Note [Adding a language extension] in compiler/main/DynFlags.hs.
 
 module Main (main) where
 
@@ -29,14 +34,13 @@ check title expected got
          showProblems "Unexpected flags" unexpected
          showProblems "Missing flags" missing
 
+-- See Note [Adding a language extension] in compiler/main/DynFlags.hs.
 expectedGhcOnlyExtensions :: [String]
 expectedGhcOnlyExtensions = ["RelaxedLayout",
                              "AlternativeLayoutRule",
                              "AlternativeLayoutRuleTransitional",
-                             "DuplicateRecordFields",
-                             "StaticPointers",
-                             "StrictData",
-                             "ApplicativeDo"] -- TODO add this to Cabal
+                             "TypeFamilyDependencies",
+                             "UnboxedSums"]
 
 expectedCabalOnlyExtensions :: [String]
 expectedCabalOnlyExtensions = ["Generics",