ucd2haskell: Remove superfluous LambdaCase pragmas

composewell · Jun 21, 2024 · 899c222 · 899c222
1 parent 281e9db
commit 899c222
Show file tree

Hide file tree

Showing 36 changed files with 4 additions and 38 deletions.
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  : [email protected]
 -- 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  : [email protected]
 -- 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  : [email protected]
 -- 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  : [email protected]
 -- 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  : [email protected]
 -- 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  : [email protected]
 -- 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  : [email protected]
 -- 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  : [email protected]
 -- 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  : [email protected]
 -- 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  : [email protected]
 -- 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  : [email protected]
 -- 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  : [email protected]
 -- 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  : [email protected]
 -- 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  : [email protected]
 -- 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  : [email protected]
 -- 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  : [email protected]
 -- 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  : [email protected]
 -- 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