From f77822d67a3ec1a6db90dcea8548da4518030313 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Sun, 25 Sep 2022 00:55:15 +0200
Subject: [PATCH] Remove unused language extensions
Co-authored-by: Jan Beinke <git@janbeinke.com>
---
.../src/Control/Concurrent/STM/Class/TH.hs | 7 ++---
stm-ltd/stm-ltd.cabal | 27 +++----------------
2 files changed, 7 insertions(+), 27 deletions(-)
diff --git a/stm-ltd/src/Control/Concurrent/STM/Class/TH.hs b/stm-ltd/src/Control/Concurrent/STM/Class/TH.hs
index 908cb98..bd1a33a 100644
--- a/stm-ltd/src/Control/Concurrent/STM/Class/TH.hs
+++ b/stm-ltd/src/Control/Concurrent/STM/Class/TH.hs
@@ -53,9 +53,10 @@ mkLiftImpl liftE fqn = do
ty <- reifyType fqn
let name = mkName $ nameBase fqn
argNames <- mapM (\_ -> newName "x") [1..(argumentCount ty)]
- let argPats = varP <$> argNames
- let bodyE = [|$liftE $(foldl appE (varE fqn) (varE <$> argNames))|]
- let clauses = [clause argPats (normalB bodyE) []]
+ let
+ argPats = varP <$> argNames
+ bodyE = [|$liftE $(foldl appE (varE fqn) (varE <$> argNames))|]
+ clauses = [clause argPats (normalB bodyE) []]
#if MIN_VERSION_GLASGOW_HASKELL(9,2,0,0)
doc <- getDoc (DeclDoc fqn)
funD_doc name clauses doc [Nothing]
diff --git a/stm-ltd/stm-ltd.cabal b/stm-ltd/stm-ltd.cabal
index 93d9065..4f9fa0c 100644
--- a/stm-ltd/stm-ltd.cabal
+++ b/stm-ltd/stm-ltd.cabal
@@ -11,42 +11,21 @@ build-type: Simple
common shared-properties
default-extensions:
- AllowAmbiguousTypes
- BangPatterns
BlockArguments
ConstraintKinds
DataKinds
- DefaultSignatures
- DeriveGeneric
DerivingStrategies
- DisambiguateRecordFields
- DuplicateRecordFields
- ExistentialQuantification
FlexibleContexts
FlexibleInstances
FunctionalDependencies
- GADTs
GeneralizedNewtypeDeriving
ImportQualifiedPost
- InstanceSigs
- LambdaCase
- -- Enable once 9.0.1 is required
- --LexicalNegation
- MultiParamTypeClasses
- NamedFieldPuns
+ MonoLocalBinds
NoImplicitPrelude
- NumericUnderscores
- OverloadedStrings
- PolyKinds
- RankNTypes
- ScopedTypeVariables
+ NoStarIsType
StandaloneDeriving
StandaloneKindSignatures
- TupleSections
- TypeApplications
- TypeFamilies
- TypeOperators
- ViewPatterns
+ KindSignatures
default-language: Haskell2010
ghc-options:
-Weverything
--
GitLab