ucd2haskell: Remove superfluous LambdaCase pragmas

wismill · wismill · commit 899c22278f57 · 2024-06-21T11:16:27.000+02:00
diff --git a/experimental/unicode-data-text/lib/Unicode/Text/Case.hs b/experimental/unicode-data-text/lib/Unicode/Text/Case.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE LambdaCase, CPP #-}
+{-# LANGUAGE CPP #-}
 
 module Unicode.Text.Case
     ( toUpperFusion
diff --git a/ucd2haskell/exe/UCD2Haskell/Modules/Blocks.hs b/ucd2haskell/exe/UCD2Haskell/Modules/Blocks.hs
@@ -34,7 +34,6 @@ genBlocksModule moduleName = Fold step initial done
 
     done Acc{..} = let ranges' = reverse ranges in unlinesBB
         [ apacheLicense 2022 moduleName
-        , "{-# LANGUAGE LambdaCase #-}"
         , "{-# OPTIONS_HADDOCK hide #-}"
         , ""
         , "module " <> moduleName
diff --git a/ucd2haskell/exe/UCD2Haskell/Modules/CaseFoldings.hs b/ucd2haskell/exe/UCD2Haskell/Modules/CaseFoldings.hs
@@ -34,7 +34,6 @@ genCaseFolding moduleName = Fold step mempty done
 
     done acc = unlinesBB
         [ apacheLicense 2022 moduleName
-        , "{-# LANGUAGE LambdaCase #-}"
         , "{-# OPTIONS_HADDOCK hide #-}"
         , ""
         , "module " <> moduleName
diff --git a/ucd2haskell/exe/UCD2Haskell/Modules/DerivedNumericValues.hs b/ucd2haskell/exe/UCD2Haskell/Modules/DerivedNumericValues.hs
@@ -44,7 +44,6 @@ genNumericValuesModule moduleName = Fold step mempty done
 
     done values = unlinesBB
         [ apacheLicense 2022 moduleName
-        , "{-# LANGUAGE LambdaCase #-}"
         , "{-# OPTIONS_HADDOCK hide #-}"
         , ""
         , "module " <> moduleName
diff --git a/ucd2haskell/exe/UCD2Haskell/Modules/Security/Confusables.hs b/ucd2haskell/exe/UCD2Haskell/Modules/Security/Confusables.hs
@@ -48,7 +48,6 @@ genConfusablesModule moduleName = Fold step mempty done
 
     done confusables = unlinesBB
         [ apacheLicense 2022 moduleName
-        , "{-# LANGUAGE LambdaCase #-}"
         , "{-# OPTIONS_HADDOCK hide #-}"
         , ""
         , "module " <> moduleName
diff --git a/ucd2haskell/exe/UCD2Haskell/Modules/Security/IdentifierStatus.hs b/ucd2haskell/exe/UCD2Haskell/Modules/Security/IdentifierStatus.hs
@@ -40,7 +40,6 @@ genIdentifierStatusModule moduleName = Fold step mempty done
 
     done values = unlinesBB
         [ apacheLicense 2022 moduleName
-        , "{-# LANGUAGE LambdaCase #-}"
         , "{-# OPTIONS_HADDOCK hide #-}"
         , ""
         , "module " <> moduleName
diff --git a/ucd2haskell/exe/UCD2Haskell/Modules/Security/IdentifierType.hs b/ucd2haskell/exe/UCD2Haskell/Modules/Security/IdentifierType.hs
@@ -145,7 +145,7 @@ genIdentifierTypeModule moduleName = Fold step mempty done
 
     done acc = unlinesBB
         [ apacheLicense 2022 moduleName
-        , "{-# LANGUAGE LambdaCase, OverloadedLists #-}"
+        , "{-# LANGUAGE OverloadedLists #-}"
         , "{-# OPTIONS_HADDOCK hide #-}"
         , ""
         , "module " <> moduleName
diff --git a/ucd2haskell/exe/UCD2Haskell/Modules/Security/IntentionalConfusables.hs b/ucd2haskell/exe/UCD2Haskell/Modules/Security/IntentionalConfusables.hs
@@ -48,7 +48,6 @@ generate moduleName = Fold step mempty done
 
     done confusables = unlinesBB
         [ apacheLicense 2022 moduleName
-        , "{-# LANGUAGE LambdaCase #-}"
         , "{-# OPTIONS_HADDOCK hide #-}"
         , ""
         , "module " <> moduleName
diff --git a/ucd2haskell/exe/UCD2Haskell/Modules/SpecialCasings.hs b/ucd2haskell/exe/UCD2Haskell/Modules/SpecialCasings.hs
@@ -80,7 +80,6 @@ genSpecialCaseMappingModule moduleName funcName specialCasings special simple =
 
     genHeader =
         [ apacheLicense 2022 moduleName
-        , "{-# LANGUAGE LambdaCase #-}"
         , "{-# OPTIONS_HADDOCK hide #-}"
         , ""
         , "module " <> moduleName
diff --git a/ucd2haskell/exe/UCD2Haskell/Modules/UnicodeData/CombiningClass.hs b/ucd2haskell/exe/UCD2Haskell/Modules/UnicodeData/CombiningClass.hs
@@ -55,7 +55,6 @@ genCombiningClassModule moduleName = Fold step initial done
     done Acc{..} =
         unlinesBB
             [ apacheLicense 2020 moduleName
-            , "{-# LANGUAGE LambdaCase #-}"
             , "{-# OPTIONS_HADDOCK hide #-}"
             , "module " <> moduleName
             , "(combiningClass, isCombining)"
diff --git a/ucd2haskell/exe/UCD2Haskell/Modules/UnicodeData/Decomposition.hs b/ucd2haskell/exe/UCD2Haskell/Modules/UnicodeData/Decomposition.hs
@@ -150,7 +150,6 @@ genDecomposeDefModule moduleName before after dtype predicate
 
     genHeader =
         [ apacheLicense 2020 moduleName
-        , "{-# LANGUAGE LambdaCase #-}"
         , "{-# OPTIONS_HADDOCK hide #-}"
         , ""
         , "module " <> moduleName
diff --git a/ucd2haskell/exe/UCD2Haskell/Modules/UnicodeData/SimpleCaseMappings.hs b/ucd2haskell/exe/UCD2Haskell/Modules/UnicodeData/SimpleCaseMappings.hs
@@ -45,7 +45,6 @@ genSimpleCaseMappingModule moduleName funcName field =
 
     genHeader =
         [ apacheLicense 2020 moduleName
-        , "{-# LANGUAGE LambdaCase #-}"
         , "{-# OPTIONS_HADDOCK hide #-}"
         , ""
         , "module " <> moduleName
diff --git a/ucd2haskell/test/Unicode/CharSpec.hs b/ucd2haskell/test/Unicode/CharSpec.hs
@@ -1,5 +1,4 @@
 {-# LANGUAGE BlockArguments #-}
-{-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE TypeApplications #-}
 
 module Unicode.CharSpec
diff --git a/unicode-data-security/lib/Unicode/Internal/Char/Security/Confusables.hs b/unicode-data-security/lib/Unicode/Internal/Char/Security/Confusables.hs
@@ -6,7 +6,6 @@
 -- Maintainer  : streamly@composewell.com
 -- Stability   : experimental
 
-{-# LANGUAGE LambdaCase #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 module Unicode.Internal.Char.Security.Confusables
diff --git a/unicode-data-security/lib/Unicode/Internal/Char/Security/IdentifierStatus.hs b/unicode-data-security/lib/Unicode/Internal/Char/Security/IdentifierStatus.hs
@@ -6,7 +6,6 @@
 -- Maintainer  : streamly@composewell.com
 -- Stability   : experimental
 
-{-# LANGUAGE LambdaCase #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 module Unicode.Internal.Char.Security.IdentifierStatus
diff --git a/unicode-data-security/lib/Unicode/Internal/Char/Security/IdentifierType.hs b/unicode-data-security/lib/Unicode/Internal/Char/Security/IdentifierType.hs
@@ -6,7 +6,7 @@
 -- Maintainer  : streamly@composewell.com
 -- Stability   : experimental
 
-{-# LANGUAGE LambdaCase, OverloadedLists #-}
+{-# LANGUAGE OverloadedLists #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 module Unicode.Internal.Char.Security.IdentifierType
diff --git a/unicode-data-security/lib/Unicode/Internal/Char/Security/IntentionalConfusables.hs b/unicode-data-security/lib/Unicode/Internal/Char/Security/IntentionalConfusables.hs
@@ -6,7 +6,6 @@
 -- Maintainer  : streamly@composewell.com
 -- Stability   : experimental
 
-{-# LANGUAGE LambdaCase #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 module Unicode.Internal.Char.Security.IntentionalConfusables
diff --git a/unicode-data/bench/Unicode/Char/Bench.hs b/unicode-data/bench/Unicode/Char/Bench.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE CPP #-}
 
 module Unicode.Char.Bench
diff --git a/unicode-data/lib/Unicode/Char/Case.hs b/unicode-data/lib/Unicode/Char/Case.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE LambdaCase #-}
-
 -- |
 -- Module      : Unicode.Char.Case
 -- Copyright   : (c) 2020 Composewell Technologies and Contributors
diff --git a/unicode-data/lib/Unicode/Char/General.hs b/unicode-data/lib/Unicode/Char/General.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE LambdaCase #-}
-
 -- |
 -- Module      : Unicode.Char.General
 -- Copyright   : (c) 2020 Composewell Technologies and Contributors
diff --git a/unicode-data/lib/Unicode/Char/General/Compat.hs b/unicode-data/lib/Unicode/Char/General/Compat.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE LambdaCase #-}
-
 -- |
 -- Module      : Unicode.Char.General.Compat
 -- Copyright   : (c) 2020 Composewell Technologies and Contributors
diff --git a/unicode-data/lib/Unicode/Internal/Char/Blocks.hs b/unicode-data/lib/Unicode/Internal/Char/Blocks.hs
@@ -6,7 +6,6 @@
 -- Maintainer  : streamly@composewell.com
 -- Stability   : experimental
 
-{-# LANGUAGE LambdaCase #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 module Unicode.Internal.Char.Blocks
diff --git a/unicode-data/lib/Unicode/Internal/Char/CaseFolding.hs b/unicode-data/lib/Unicode/Internal/Char/CaseFolding.hs
@@ -6,7 +6,6 @@
 -- Maintainer  : streamly@composewell.com
 -- Stability   : experimental
 
-{-# LANGUAGE LambdaCase #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 module Unicode.Internal.Char.CaseFolding
diff --git a/unicode-data/lib/Unicode/Internal/Char/DerivedNumericValues.hs b/unicode-data/lib/Unicode/Internal/Char/DerivedNumericValues.hs
@@ -6,7 +6,6 @@
 -- Maintainer  : streamly@composewell.com
 -- Stability   : experimental
 
-{-# LANGUAGE LambdaCase #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 module Unicode.Internal.Char.DerivedNumericValues
diff --git a/unicode-data/lib/Unicode/Internal/Char/SpecialCasing/LowerCaseMapping.hs b/unicode-data/lib/Unicode/Internal/Char/SpecialCasing/LowerCaseMapping.hs
@@ -6,7 +6,6 @@
 -- Maintainer  : streamly@composewell.com
 -- Stability   : experimental
 
-{-# LANGUAGE LambdaCase #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 module Unicode.Internal.Char.SpecialCasing.LowerCaseMapping
diff --git a/unicode-data/lib/Unicode/Internal/Char/SpecialCasing/TitleCaseMapping.hs b/unicode-data/lib/Unicode/Internal/Char/SpecialCasing/TitleCaseMapping.hs
@@ -6,7 +6,6 @@
 -- Maintainer  : streamly@composewell.com
 -- Stability   : experimental
 
-{-# LANGUAGE LambdaCase #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 module Unicode.Internal.Char.SpecialCasing.TitleCaseMapping
diff --git a/unicode-data/lib/Unicode/Internal/Char/SpecialCasing/UpperCaseMapping.hs b/unicode-data/lib/Unicode/Internal/Char/SpecialCasing/UpperCaseMapping.hs
@@ -6,7 +6,6 @@
 -- Maintainer  : streamly@composewell.com
 -- Stability   : experimental
 
-{-# LANGUAGE LambdaCase #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 module Unicode.Internal.Char.SpecialCasing.UpperCaseMapping
diff --git a/unicode-data/lib/Unicode/Internal/Char/UnicodeData/CombiningClass.hs b/unicode-data/lib/Unicode/Internal/Char/UnicodeData/CombiningClass.hs
@@ -6,7 +6,6 @@
 -- Maintainer  : streamly@composewell.com
 -- Stability   : experimental
 
-{-# LANGUAGE LambdaCase #-}
 {-# OPTIONS_HADDOCK hide #-}
 module Unicode.Internal.Char.UnicodeData.CombiningClass
 (combiningClass, isCombining)
diff --git a/unicode-data/lib/Unicode/Internal/Char/UnicodeData/Decompositions.hs b/unicode-data/lib/Unicode/Internal/Char/UnicodeData/Decompositions.hs
@@ -6,7 +6,6 @@
 -- Maintainer  : streamly@composewell.com
 -- Stability   : experimental
 
-{-# LANGUAGE LambdaCase #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 module Unicode.Internal.Char.UnicodeData.Decompositions
diff --git a/unicode-data/lib/Unicode/Internal/Char/UnicodeData/DecompositionsK.hs b/unicode-data/lib/Unicode/Internal/Char/UnicodeData/DecompositionsK.hs
@@ -6,7 +6,6 @@
 -- Maintainer  : streamly@composewell.com
 -- Stability   : experimental
 
-{-# LANGUAGE LambdaCase #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 module Unicode.Internal.Char.UnicodeData.DecompositionsK
diff --git a/unicode-data/lib/Unicode/Internal/Char/UnicodeData/DecompositionsK2.hs b/unicode-data/lib/Unicode/Internal/Char/UnicodeData/DecompositionsK2.hs
@@ -6,7 +6,6 @@
 -- Maintainer  : streamly@composewell.com
 -- Stability   : experimental
 
-{-# LANGUAGE LambdaCase #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 module Unicode.Internal.Char.UnicodeData.DecompositionsK2
diff --git a/unicode-data/lib/Unicode/Internal/Char/UnicodeData/SimpleLowerCaseMapping.hs b/unicode-data/lib/Unicode/Internal/Char/UnicodeData/SimpleLowerCaseMapping.hs
@@ -6,7 +6,6 @@
 -- Maintainer  : streamly@composewell.com
 -- Stability   : experimental
 
-{-# LANGUAGE LambdaCase #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 module Unicode.Internal.Char.UnicodeData.SimpleLowerCaseMapping
diff --git a/unicode-data/lib/Unicode/Internal/Char/UnicodeData/SimpleTitleCaseMapping.hs b/unicode-data/lib/Unicode/Internal/Char/UnicodeData/SimpleTitleCaseMapping.hs
@@ -6,7 +6,6 @@
 -- Maintainer  : streamly@composewell.com
 -- Stability   : experimental
 
-{-# LANGUAGE LambdaCase #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 module Unicode.Internal.Char.UnicodeData.SimpleTitleCaseMapping
diff --git a/unicode-data/lib/Unicode/Internal/Char/UnicodeData/SimpleUpperCaseMapping.hs b/unicode-data/lib/Unicode/Internal/Char/UnicodeData/SimpleUpperCaseMapping.hs
@@ -6,7 +6,6 @@
 -- Maintainer  : streamly@composewell.com
 -- Stability   : experimental
 
-{-# LANGUAGE LambdaCase #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 module Unicode.Internal.Char.UnicodeData.SimpleUpperCaseMapping
diff --git a/unicode-data/test/Unicode/CharSpec.hs b/unicode-data/test/Unicode/CharSpec.hs
@@ -1,6 +1,5 @@
 {-# LANGUAGE BlockArguments #-}
 {-# LANGUAGE CPP #-}
-{-# LANGUAGE LambdaCase #-}
 
 module Unicode.CharSpec
   ( spec
diff --git a/unicode-data/unicode-data.cabal b/unicode-data/unicode-data.cabal
@@ -51,6 +51,7 @@ common default-extensions
       ScopedTypeVariables
       TupleSections
       FlexibleContexts
+      LambdaCase
 
       -- Experimental, may lead to issues
       UnboxedTuples

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-{-# LANGUAGE LambdaCase, CPP #-}`
	`1`	`+{-# LANGUAGE CPP #-}`
`2`	`2`
`3`	`3`	`module Unicode.Text.Case`
`4`	`4`	`( toUpperFusion`