Skip to content

Commit

Permalink
Merge pull request #9 from input-output-hk/anviking/4/gitignore-styli…
Browse files Browse the repository at this point in the history
…sh-hlint

Stylish, hlint
  • Loading branch information
KtorZ authored Mar 4, 2019
2 parents e1e787e + a29aa15 commit fa43f1f
Show file tree
Hide file tree
Showing 3 changed files with 106 additions and 1 deletion.
82 changes: 82 additions & 0 deletions .hlint.yaml
Original file line number Diff line number Diff line change
@@ -0,0 +1,82 @@
# HLint configuration file
# https://github.com/ndmitchell/hlint
##########################

# This file contains a template configuration file, which is typically
# placed as .hlint.yaml in the root of your project


# Specify additional command line arguments
#
# - arguments: [--color, --cpp-simple, -XQuasiQuotes]


# Control which extensions/flags/modules/functions can be used
#
# - extensions:
# - default: false # all extension are banned by default
# - name: [PatternGuards, ViewPatterns] # only these listed extensions can be used
# - {name: CPP, within: CrossPlatform} # CPP can only be used in a given module
#
# - flags:
# - {name: -w, within: []} # -w is allowed nowhere
#
# - modules:
# - {name: [Data.Set, Data.HashSet], as: Set} # if you import Data.Set qualified, it must be as 'Set'
# - {name: Control.Arrow, within: []} # Certain modules are banned entirely
#
# - functions:
# - {name: unsafePerformIO, within: []} # unsafePerformIO can only appear in no modules

- modules:
# Enforce some common qualified imports aliases across the codebase
- {name: [Data.Aeson, Data.Aeson.Types], as: Aeson}
- {name: [Data.ByteArray], as: BA}
- {name: [Data.ByteString.Base16], as: B16}
- {name: [Data.ByteString.Char8], as: B8}
- {name: [Data.ByteString.Lazy], as: BL}
- {name: [Data.ByteString], as: BS}
- {name: [Data.Foldable], as: F}
- {name: [Data.List.NonEmpty], as: NE}
- {name: [Data.List], as: L}
- {name: [Data.Map.Strict], as: Map}
- {name: [Data.Sequence], as: Seq}
- {name: [Data.Set, Data.HashSet], as: Set}
- {name: [Data.Text, Data.Text.Encoding], as: T}
- {name: [Data.Vector], as: V}

# Ignore some build-in rules
- ignore: {name: "Reduce duplication"} # This is a decision left to developers and reviewers
- ignore: {name: "Redundant bracket"} # Not everyone knows precedences of every operators in Haskell. Brackets help readability.
- ignore: {name: "Redundant do"} # Just an annoying hlint built-in, GHC may remove redundant do if he wants


# Add custom hints for this project
#
# Will suggest replacing "wibbleMany [myvar]" with "wibbleOne myvar"
# - error: {lhs: "wibbleMany [x]", rhs: wibbleOne x}


# Turn on hints that are off by default
#
# Ban "module X(module X) where", to require a real export list
# - warn: {name: Use explicit module export list}
#
# Replace a $ b $ c with a . b $ c
# - group: {name: dollar, enabled: true}
#
# Generalise map to fmap, ++ to <>
# - group: {name: generalise, enabled: true}


# Ignore some builtin hints
# - ignore: {name: Use let}
# - ignore: {name: Use const, within: SpecialModule} # Only within certain modules


# Define some custom infix operators
# - fixity: infixr 3 ~^#^~


# To generate a suitable file for HLint do:
# $ hlint --default > .hlint.yaml
22 changes: 22 additions & 0 deletions .stylish-haskell.yaml
Original file line number Diff line number Diff line change
@@ -0,0 +1,22 @@
# Stylish-haskell configuration file
#
# See `stylish-haskell --defaults` or
# https://github.com/jaspervdj/stylish-haskell/blob/master/data/stylish-haskell.yaml
# for usage.

columns: 80 # Should match .editorconfig
steps:
- imports:
align: none
empty_list_align: inherit
list_align: new_line
list_padding: 4
long_list_align: new_line_multiline
pad_module_names: false
separate_lists: true
space_surround: true

- language_pragmas:
align: false
remove_redundant: true
style: vertical
3 changes: 2 additions & 1 deletion app/server/Main.hs
Original file line number Diff line number Diff line change
@@ -1,7 +1,8 @@
module Main where

import Cardano.Wallet
( sayHello )
import Prelude
import Cardano.Wallet (sayHello)

main :: IO ()
main = sayHello

0 comments on commit fa43f1f

Please sign in to comment.