jfmengels/elm-review
1
1
Fork 0
mirror of https://github.com/jfmengels/elm-review.git synced 2024-08-17 20:10:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

Use listOfThings

Browse Source
This commit is contained in:
Jeroen Engels 2021-03-11 22:50:29 +01:00
parent 45f0eb4a83
commit 2650f9f2b3
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
create-dependency/src/DependencyCreator.elm
View File

@ -73,7 +73,7 @@ stringify s =
listOfThings : (a -> String) -> List a -> String
listOfThings mapper list =
"[ " ++ String.join "\n" (List.map mapper list) ++ " ]"
"[ " ++ String.join "\n , " (List.map mapper list) ++ " ]"
formatModule mod =
@ -840,6 +840,10 @@ cares about spaces sometimes. `withIndent` and `getIndent` allow you to manage
}"""
formatDep ( name, constraint ) =
"( unsafePackageName " ++ stringify (Elm.Package.toString name) ++ ", unsafeConstraint " ++ stringify (Elm.Constraint.toString constraint) ++ ")"
formatFile : Elm.Project.PackageInfo -> List Elm.Docs.Module -> String
formatFile elmJson docsJson =
let
@ -860,7 +864,7 @@ formatFile elmJson docsJson =
"Hello"
dependencyModules =
"[" ++ String.join "\n , " (List.map formatModule docsJson) ++ "\n ]"
listOfThings formatModule docsJson
in
"module " ++ moduleName ++ """ exposing (dependency)
@ -889,8 +893,8 @@ elmJson =
, license = Elm.License.fromString """ ++ stringify (Elm.License.toString elmJson.license) ++ """" |> Maybe.withDefault Elm.License.bsd3
, name = unsafePackageName """ ++ stringify (Elm.Package.toString elmJson.name) ++ """
, summary = """ ++ stringify elmJson.summary ++ """
, deps = [ """ ++ String.join ", " (List.map (\( name, constraint ) -> "( unsafePackageName " ++ stringify (Elm.Package.toString name) ++ ", unsafeConstraint " ++ stringify (Elm.Constraint.toString constraint) ++ ")") elmJson.deps) ++ """ ]
, testDeps = [ """ ++ String.join ", " (List.map (\( name, constraint ) -> "( unsafePackageName " ++ stringify (Elm.Package.toString name) ++ ", unsafeConstraint " ++ stringify (Elm.Constraint.toString constraint) ++ ")") elmJson.testDeps) ++ """ ]
, deps = """ ++ listOfThings formatDep elmJson.deps ++ """
, testDeps = """ ++ listOfThings formatDep elmJson.testDeps ++ """
, version = Elm.Version.fromString """ ++ stringify (Elm.Version.toString elmJson.version) ++ """ |> Maybe.withDefault Elm.Version.one
}