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

Re-use listOfThings function

Browse Source
This commit is contained in:
Jeroen Engels 2021-03-12 18:28:01 +01:00
parent c181235792
commit 2683b99728
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -62,18 +62,16 @@ formatFile elmJson docsJson =
let
listOfModuleNames : List Elm.Module.Name -> String
listOfModuleNames list =
list
|> List.map (\name -> "unsafeModuleName " ++ stringify (Elm.Module.toString name))
|> String.join ", "
listOfThings SingleLine (\name -> "unsafeModuleName " ++ stringify (Elm.Module.toString name)) list
exposed : String
exposed =
case elmJson.exposed of
Elm.Project.ExposedList list ->
"Elm.Project.ExposedList [ " ++ listOfModuleNames list ++ " ]"
"Elm.Project.ExposedList " ++ listOfModuleNames list
Elm.Project.ExposedDict dict ->
"Elm.Project.ExposedDict [ " ++ String.join ", " (List.map (\( section, list ) -> "( \"" ++ section ++ "\", [ " ++ listOfModuleNames list ++ " ] ) ") dict) ++ " ]"
"Elm.Project.ExposedDict " ++ listOfThings MultipleLines (\( section, list ) -> "( \"" ++ section ++ "\", " ++ listOfModuleNames list ++ " ) ") dict
moduleName : String
moduleName =