jfmengels/elm-review
1
1
Fork 0
mirror of https://github.com/jfmengels/elm-review.git synced 2024-12-27 19:56:10 +03:00
Code Issues Packages Projects Releases Wiki Activity

elm-format

Browse Source
This commit is contained in:
Jeroen Engels 2018-11-05 18:59:42 +01:00
parent e2161f8388
commit a16c660048
1 changed files with 25 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
example/Main.elm
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
@ -151,24 +149,24 @@ statement s =
defaultDisplay =
li [] [ pre [] [ text <| toString s ] ]
in
case s of
FunctionDeclaration _ _ body ->
displayElementAndExpressions s [ body ]
case s of
FunctionDeclaration _ _ body ->
displayElementAndExpressions s [ body ]
FunctionTypeDeclaration _ body ->
displayElementAndAnyChild s [ body ]
FunctionTypeDeclaration _ body ->
displayElementAndAnyChild s [ body ]
ModuleDeclaration _ exportSet ->
displayElementAndAnyChild s [ exportSet ]
ModuleDeclaration _ exportSet ->
displayElementAndAnyChild s [ exportSet ]
PortModuleDeclaration _ exportSet ->
displayElementAndAnyChild s [ exportSet ]
PortModuleDeclaration _ exportSet ->
displayElementAndAnyChild s [ exportSet ]
ImportStatement _ _ exportSet ->
displayElementAndAnyChild s [ exportSet ]
ImportStatement _ _ exportSet ->
displayElementAndAnyChild s [ exportSet ]
s ->
defaultDisplay
s ->
defaultDisplay
tree : Result (Combine.ParseErr ()) ( b, c, List Statement ) -> Html Msg
@ -195,14 +193,15 @@ lint source =
Ok errors ->
if List.isEmpty errors then
[ "No errors." ]
else
List.map (Tuple.second >> .message) errors
in
div []
(List.map
(\message -> p [] [ text message ])
messages
)
div []
(List.map
(\message -> p [] [ text message ])
messages
)
view : String -> Html Msg