Skip to content

Commit 241aa55

Browse files
committed
hlint: remove unneeded LANGUAGE pragmas
It seems disabling CPP and TemplateHaskell allows hlint to detect other unused pragmas.
1 parent a80fd54 commit 241aa55

12 files changed

+10
-27
lines changed

src/Stack/Build/Cache.hs

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,5 @@
11
{-# LANGUAGE NoImplicitPrelude #-}
2-
{-# LANGUAGE DeriveGeneric #-}
32
{-# LANGUAGE MultiParamTypeClasses #-}
4-
{-# LANGUAGE TupleSections #-}
53
{-# LANGUAGE ConstraintKinds #-}
64
{-# LANGUAGE OverloadedStrings #-}
75
{-# LANGUAGE DataKinds #-}

src/Stack/Build/Execute.hs

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,6 @@
55
{-# LANGUAGE MultiParamTypeClasses #-}
66
{-# LANGUAGE OverloadedStrings #-}
77
{-# LANGUAGE RecordWildCards #-}
8-
{-# LANGUAGE LambdaCase #-}
98
{-# LANGUAGE TypeFamilies #-}
109
{-# LANGUAGE ScopedTypeVariables #-}
1110
{-# LANGUAGE RankNTypes #-}

src/Stack/Config.hs

Lines changed: 0 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -5,14 +5,10 @@
55
{-# LANGUAGE DeriveFunctor #-}
66
{-# LANGUAGE DeriveTraversable #-}
77
{-# LANGUAGE ScopedTypeVariables #-}
8-
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
98
{-# LANGUAGE FlexibleContexts #-}
109
{-# LANGUAGE OverloadedStrings #-}
1110
{-# LANGUAGE RecordWildCards #-}
12-
{-# LANGUAGE DeriveDataTypeable #-}
1311
{-# LANGUAGE TypeFamilies #-}
14-
{-# LANGUAGE LambdaCase #-}
15-
{-# LANGUAGE ViewPatterns #-}
1612
{-# LANGUAGE TupleSections #-}
1713

1814
-- | The general Stack configuration that starts everything off. This should

src/Stack/Coverage.hs

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,6 @@
55
{-# LANGUAGE OverloadedStrings #-}
66
{-# LANGUAGE ScopedTypeVariables #-}
77
{-# LANGUAGE FlexibleInstances #-}
8-
{-# LANGUAGE LambdaCase #-}
98
{-# LANGUAGE TupleSections #-}
109

1110
-- | Generate HPC (Haskell Program Coverage) reports

src/Stack/Docker.hs

Lines changed: 10 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,14 @@
11
{-# LANGUAGE NoImplicitPrelude #-}
2-
{-# LANGUAGE CPP, ConstraintKinds, DeriveDataTypeable, FlexibleContexts, MultiWayIf, NamedFieldPuns,
3-
OverloadedStrings, PackageImports, RankNTypes, RecordWildCards, ScopedTypeVariables,
4-
TupleSections #-}
2+
{-# LANGUAGE CPP #-}
3+
{-# LANGUAGE ConstraintKinds #-}
4+
{-# LANGUAGE FlexibleContexts #-}
5+
{-# LANGUAGE MultiWayIf #-}
6+
{-# LANGUAGE NamedFieldPuns #-}
7+
{-# LANGUAGE OverloadedStrings #-}
8+
{-# LANGUAGE RankNTypes #-}
9+
{-# LANGUAGE RecordWildCards #-}
10+
{-# LANGUAGE ScopedTypeVariables #-}
11+
{-# LANGUAGE TupleSections #-}
512

613
-- | Run commands in Docker containers
714
module Stack.Docker

src/Stack/GhcPkg.hs

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,8 +3,6 @@
33
{-# LANGUAGE FlexibleContexts #-}
44
{-# LANGUAGE BangPatterns #-}
55
{-# LANGUAGE OverloadedStrings #-}
6-
{-# LANGUAGE DeriveDataTypeable #-}
7-
{-# LANGUAGE TupleSections #-}
86
{-# OPTIONS -fno-warn-unused-do-bind #-}
97

108
-- | Functions for the GHC package database.

src/Stack/Package.hs

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,4 @@
11
{-# LANGUAGE NoImplicitPrelude #-}
2-
{-# LANGUAGE LambdaCase #-}
32
{-# LANGUAGE TupleSections #-}
43
{-# LANGUAGE ScopedTypeVariables #-}
54
{-# LANGUAGE FlexibleContexts #-}
@@ -8,7 +7,6 @@
87
{-# LANGUAGE FlexibleInstances #-}
98
{-# LANGUAGE OverloadedStrings #-}
109
{-# LANGUAGE RankNTypes #-}
11-
{-# LANGUAGE ViewPatterns #-}
1210
{-# LANGUAGE RecordWildCards #-}
1311

1412
-- | Dealing with Cabal.

src/Stack/PackageDump.hs

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,11 +1,9 @@
11
{-# LANGUAGE NoImplicitPrelude #-}
22
{-# LANGUAGE FlexibleContexts #-}
3-
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
43
{-# LANGUAGE RankNTypes #-}
54
{-# LANGUAGE OverloadedStrings #-}
65
{-# LANGUAGE TupleSections #-}
76
{-# LANGUAGE DeriveDataTypeable #-}
8-
{-# LANGUAGE DeriveGeneric #-}
97
module Stack.PackageDump
108
( Line
119
, eachSection

src/Stack/Snapshot.hs

Lines changed: 0 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -2,15 +2,11 @@
22
{-# LANGUAGE ConstraintKinds #-}
33
{-# LANGUAGE DataKinds #-}
44
{-# LANGUAGE DeriveDataTypeable #-}
5-
{-# LANGUAGE DeriveGeneric #-}
6-
{-# LANGUAGE EmptyDataDecls #-}
75
{-# LANGUAGE FlexibleContexts #-}
86
{-# LANGUAGE GADTs #-}
97
{-# LANGUAGE OverloadedStrings #-}
10-
{-# LANGUAGE RecordWildCards #-}
118
{-# LANGUAGE ScopedTypeVariables #-}
129
{-# LANGUAGE TupleSections #-}
13-
{-# LANGUAGE ViewPatterns #-}
1410

1511
-- | Reading in @SnapshotDef@s and converting them into
1612
-- @LoadedSnapshot@s.

src/Stack/Types/Config.hs

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -9,15 +9,12 @@
99
{-# LANGUAGE FlexibleContexts #-}
1010
{-# LANGUAGE FlexibleInstances #-}
1111
{-# LANGUAGE GADTs #-}
12-
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
1312
{-# LANGUAGE MultiParamTypeClasses #-}
1413
{-# LANGUAGE MultiWayIf #-}
1514
{-# LANGUAGE NoImplicitPrelude #-}
1615
{-# LANGUAGE OverloadedStrings #-}
1716
{-# LANGUAGE RecordWildCards #-}
1817
{-# LANGUAGE ScopedTypeVariables #-}
19-
{-# LANGUAGE StandaloneDeriving #-}
20-
{-# LANGUAGE TupleSections #-}
2118
{-# LANGUAGE TypeFamilies #-}
2219
{-# LANGUAGE ViewPatterns #-}
2320

src/Stack/Types/TemplateName.hs

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,5 @@
11
{-# LANGUAGE NoImplicitPrelude #-}
2-
{-# LANGUAGE ViewPatterns #-}
32
{-# LANGUAGE OverloadedStrings #-}
4-
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
53

64
-- | Template name handling.
75

src/Stack/Upgrade.hs

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,6 @@
33
{-# LANGUAGE FlexibleContexts #-}
44
{-# LANGUAGE MultiParamTypeClasses #-}
55
{-# LANGUAGE OverloadedStrings #-}
6-
{-# LANGUAGE RecordWildCards #-}
76
module Stack.Upgrade
87
( upgrade
98
, UpgradeOpts

0 commit comments

Comments
 (0)