54e9964 · odd-jobs · git.iko.soy

git.iko.soy/odd-jobs

Follow hlint suggestion: unused language pragmas.

commit54e9964e77fd773b77486074ad898f98200b9488 authorPhil de Joux <philderbeast@gmail.com> dateSun 16 Oct 2022, 14:13 (4 years ago) parentf645e7c

5 files changed+3−7

compare with master

unifiedsplit

.hlint.yaml−1 examples/OddJobsCliExample.lhs−1 src/OddJobs/Job.hs+1−3 src/OddJobs/Web.hs+1−1 test/Test.hs+1−1

.hlint.yaml−1

@@ -9,7 +9,6 @@

99- ignore: {name: "Redundant if"} # 1 hint

1010- ignore: {name: "Redundant lambda"} # 1 hint

1111- ignore: {name: "Replace case with fromMaybe"} # 2 hints

12−- ignore: {name: "Unused LANGUAGE pragma"} # 4 hints

1312- ignore: {name: "Use <$>"} # 6 hints

1413- ignore: {name: "Use <&>"} # 1 hint

1514- ignore: {name: "Use asks"} # 12 hints

examples/OddJobsCliExample.lhs−1

@@ -18,7 +18,6 @@ Ideally, this module should be compiled into a separate executable and should de

1818\begin{code}

1919{-# LANGUAGE DeriveAnyClass #-}

2020{-# LANGUAGE DeriveGeneric #-}

21−{-# LANGUAGE NamedFieldPuns #-}

2221{-# LANGUAGE OverloadedStrings #-}

2322{-# LANGUAGE LambdaCase #-}

2423{-# LANGUAGE RecordWildCards #-}

src/OddJobs/Job.hs+1−3

@@ -1,6 +1,4 @@

1−{-# LANGUAGE RankNTypes, FlexibleInstances, FlexibleContexts, PartialTypeSignatures, TupleSections, DeriveGeneric, UndecidableInstances #-}

2−{-# LANGUAGE ExistentialQuantification #-}

3−{-# LANGUAGE ScopedTypeVariables #-}

1+{-# LANGUAGE RankNTypes, FlexibleInstances, FlexibleContexts, PartialTypeSignatures, UndecidableInstances #-}

53module OddJobs.Job

64 (

src/OddJobs/Web.hs+1−1

@@ -1,4 +1,4 @@

1−{-# LANGUAGE DeriveGeneric, NamedFieldPuns, TypeOperators, DataKinds, RecordWildCards, DeriveAnyClass #-}

1+{-# LANGUAGE DeriveGeneric, NamedFieldPuns, DataKinds, RecordWildCards #-}

22{-# LANGUAGE CPP #-}

33module OddJobs.Web where

test/Test.hs+1−1

@@ -1,4 +1,4 @@

1−{-# LANGUAGE TypeSynonymInstances, FlexibleInstances, NamedFieldPuns, DeriveGeneric, FlexibleContexts, TypeFamilies, StandaloneDeriving, RankNTypes #-}

1+{-# LANGUAGE FlexibleInstances, NamedFieldPuns, DeriveGeneric, FlexibleContexts, TypeFamilies, StandaloneDeriving, RankNTypes #-}

22module Test where

44import Test.Tasty as Tasty