mirror of
https://github.com/jfmengels/elm-review.git
synced 2024-10-27 00:25:49 +03:00
Clean up code from DependencyCreator
This commit is contained in:
parent
67d099190a
commit
4ecf2e50a0
@ -8,10 +8,7 @@ import Elm.Package
|
|||||||
import Elm.Project
|
import Elm.Project
|
||||||
import Elm.Type
|
import Elm.Type
|
||||||
import Elm.Version
|
import Elm.Version
|
||||||
import Html.Attributes exposing (form, type_)
|
|
||||||
import Json.Decode as Decode
|
import Json.Decode as Decode
|
||||||
import Review.Project exposing (elmJson)
|
|
||||||
import Review.Project.Dependency as Dependency exposing (Dependency)
|
|
||||||
import String
|
import String
|
||||||
|
|
||||||
|
|
||||||
@ -105,16 +102,6 @@ formatType type_ =
|
|||||||
"Elm.Type.Type " ++ stringify name ++ " " ++ listOfThings formatType list
|
"Elm.Type.Type " ++ stringify name ++ " " ++ listOfThings formatType list
|
||||||
|
|
||||||
Elm.Type.Record fields maybeVar ->
|
Elm.Type.Record fields maybeVar ->
|
||||||
let
|
|
||||||
var : String
|
|
||||||
var =
|
|
||||||
case maybeVar of
|
|
||||||
Just var_ ->
|
|
||||||
var_ ++ " | "
|
|
||||||
|
|
||||||
Nothing ->
|
|
||||||
""
|
|
||||||
in
|
|
||||||
"Elm.Type.Record " ++ listOfThings (\( field, subType ) -> "( " ++ stringify field ++ ", " ++ formatType subType ++ " )") fields ++ " " ++ Debug.toString maybeVar
|
"Elm.Type.Record " ++ listOfThings (\( field, subType ) -> "( " ++ stringify field ++ ", " ++ formatType subType ++ " )") fields ++ " " ++ Debug.toString maybeVar
|
||||||
|
|
||||||
Elm.Type.Lambda input output ->
|
Elm.Type.Lambda input output ->
|
||||||
@ -274,9 +261,4 @@ unsafeConstraint constraint =
|
|||||||
)
|
)
|
||||||
|
|
||||||
|
|
||||||
formatPackageName : Elm.Package.Name -> String
|
|
||||||
formatPackageName packageName =
|
|
||||||
"Elm.Package.fromString " ++ stringify (Elm.Package.toString packageName) ++ " |> Maybe.withDefault Elm.Package.one"
|
|
||||||
|
|
||||||
|
|
||||||
port sendToJs : ( String, String ) -> Cmd msg
|
port sendToJs : ( String, String ) -> Cmd msg
|
||||||
|
Loading…
Reference in New Issue
Block a user