git.iko.soy/typeable/servant
on master help sign in
Stricter HLint
commit226154218b9bf9f40df02363f88b746bc4e065b3 authorOleg Grenrus <oleg.grenrus@iki.fi> dateSun 15 Sep 2019, 17:20 (7 years ago) parente8e1efb
3 files changed+51−66
.hlint.yaml+51 hlint.yaml−65 servant/src/Servant/API/Experimental/Auth.hs−1
.hlint.yamlnew file+51
@@ -0,0 +1,51 @@
1+# Control which extensions/flags/modules/functions can be used
2+#
3+- extensions:
4+ - default: false # all extension are banned by default
5+ - name:
6+ - CPP
7+ - DataKinds
8+ - DeriveDataTypeable
9+ - DeriveFoldable
10+ - DeriveFunctor
11+ - DeriveGeneric
12+ - DeriveTraversable
13+ - FlexibleContexts
14+ - FlexibleInstances
15+ - FunctionalDependencies
16+ - GADTs
17+ - KindSignatures
18+ - MultiParamTypeClasses
19+ - OverloadedStrings
20+ - PolyKinds
21+ - RankNTypes
22+ - ScopedTypeVariables
23+ - TypeFamilies
24+ - TypeOperators
25+ - UndecidableInstances
26+
27+- modules:
28+ - {name: [Data.Set], as: Set}
29+ - {name: Control.Arrow, within: []} # Certain modules are banned entirely
30+
31+- functions:
32+ - {name: unsafePerformIO, within: []} # unsafePerformIO can only appear in no modules
33+
34+# Turn on hints that are off by default
35+#
36+# Ban "module X(module X) where", to require a real export list
37+- warn: {name: Use explicit module export list}
38+
39+# Ignore some builtin hints
40+- ignore: {name: Redundant do}
41+- ignore: {name: Parse error}
42+- ignore: {name: Use fmap}
43+- ignore: {name: "Use <$>"}
44+- ignore: {name: Use list comprehension}
45+- ignore: {name: Use lambda-case}
46+- ignore: {name: Eta reduce}
47+
48+# Add custom hints for this project
49+#
50+# Will suggest replacing "wibbleMany [myvar]" with "wibbleOne myvar"
51+# - error: {lhs: "wibbleMany [x]", rhs: wibbleOne x}
hlint.yamldeleted−65
@@ -1,65 +0,0 @@
1−# HLint configuration file
2−# https://github.com/ndmitchell/hlint
3−##########################
4−
5−# This file contains a template configuration file, which is typically
6−# placed as .hlint.yaml in the root of your project
7−
8−
9−# Specify additional command line arguments
10−#
11−# - arguments: [--color, --cpp-simple, -XQuasiQuotes]
12−
13−
14−# Control which extensions/flags/modules/functions can be used
15−#
16−# - extensions:
17−# - default: false # all extension are banned by default
18−# - name: [PatternGuards, ViewPatterns] # only these listed extensions can be used
19−# - {name: CPP, within: CrossPlatform} # CPP can only be used in a given module
20−#
21−# - flags:
22−# - {name: -w, within: []} # -w is allowed nowhere
23−#
24−# - modules:
25−# - {name: [Data.Set, Data.HashSet], as: Set} # if you import Data.Set qualified, it must be as 'Set'
26−# - {name: Control.Arrow, within: []} # Certain modules are banned entirely
27−#
28−# - functions:
29−# - {name: unsafePerformIO, within: []} # unsafePerformIO can only appear in no modules
30−
31−
32−# Add custom hints for this project
33−#
34−# Will suggest replacing "wibbleMany [myvar]" with "wibbleOne myvar"
35−# - error: {lhs: "wibbleMany [x]", rhs: wibbleOne x}
36−
37−
38−# Turn on hints that are off by default
39−#
40−# Ban "module X(module X) where", to require a real export list
41−# - warn: {name: Use explicit module export list}
42−#
43−# Replace a $ b $ c with a . b $ c
44−# - group: {name: dollar, enabled: true}
45−#
46−# Generalise map to fmap, ++ to <>
47−# - group: {name: generalise, enabled: true}
48−
49−
50−# Ignore some builtin hints
51−- ignore: {name: Redundant do}
52−- ignore: {name: Parse error}
53−- ignore: {name: Use fmap}
54−- ignore: {name: Use list comprehension}
55−- ignore: {name: Use lambda-case}
56−- ignore: {name: Eta reduce}
57−# - ignore: {name: Use const, within: SpecialModule} # Only within certain modules
58−
59−
60−# Define some custom infix operators
61−# - fixity: infixr 3 ~^#^~
62−
63−
64−# To generate a suitable file for HLint do:
65−# $ hlint --default > .hlint.yaml
servant/src/Servant/API/Experimental/Auth.hs−1
@@ -1,6 +1,5 @@
11{-# LANGUAGE DataKinds #-}
22{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE KindSignatures #-}
43{-# LANGUAGE PolyKinds #-}
54module Servant.API.Experimental.Auth where
65