elm-format

This commit is contained in:
Jeroen Engels 2018-11-05 18:59:42 +01:00
parent e2161f8388
commit a16c660048

View File

@ -1,5 +1,7 @@
module Main exposing (main)
-- Rules
import Ast
import Ast.Expression exposing (..)
import Ast.Statement exposing (..)
@ -9,14 +11,8 @@ import Html.Attributes exposing (class, id)
import Html.Events exposing (on, targetValue)
import Json.Decode as JD
import Lint exposing (lintSource)
import Lint.Types exposing (LintRule, Severity(..))
import Regex exposing (escape, regex)
import Result
-- Rules
import Lint.Rules.DefaultPatternPosition
import Lint.Rules.ElmTest.NoDuplicateTestBodies
import Lint.Rules.NoConstantCondition
import Lint.Rules.NoDebug
import Lint.Rules.NoDuplicateImports
@ -30,7 +26,9 @@ import Lint.Rules.NoUselessPatternMatching
import Lint.Rules.NoWarningComments
import Lint.Rules.SimplifyPiping
import Lint.Rules.SimplifyPropertyAccess
import Lint.Rules.ElmTest.NoDuplicateTestBodies
import Lint.Types exposing (LintRule, Severity(..))
import Regex exposing (escape, regex)
import Result
type Msg
@ -195,6 +193,7 @@ lint source =
Ok errors ->
if List.isEmpty errors then
[ "No errors." ]
else
List.map (Tuple.second >> .message) errors
in