diff --git a/elm.json b/elm.json index 2f55924e..e351db19 100644 --- a/elm.json +++ b/elm.json @@ -3,7 +3,7 @@ "name": "mdgriffith/elm-codegen", "summary": "A code generation library for Elm", "license": "BSD-3-Clause", - "version": "4.2.1", + "version": "4.2.2", "exposed-modules": [ "Elm", "Elm.Op", diff --git a/package.json b/package.json index 0455a42e..e07b221f 100644 --- a/package.json +++ b/package.json @@ -1,6 +1,6 @@ { "name": "elm-codegen", - "version": "0.5.3", + "version": "0.5.4", "description": "Codegen for Elm", "main": "./dist/index.js", "types": "./dist/index.d.ts", diff --git a/src/Internal/Write.elm b/src/Internal/Write.elm index 18c53f08..666e67d3 100644 --- a/src/Internal/Write.elm +++ b/src/Internal/Write.elm @@ -354,8 +354,23 @@ prettyExposing exposing_ = prettyTopLevelExposes : List TopLevelExpose -> Doc t prettyTopLevelExposes exposes = - List.map prettyTopLevelExpose exposes - |> Pretty.join (Pretty.string ", ") + let + renderedTopLevelExposes = + List.map prettyTopLevelExpose exposes + + renderedWithSeparator = + case List.reverse renderedTopLevelExposes of + head :: tail -> + head + :: List.map (Pretty.a <| Pretty.char ',') tail + |> List.reverse + + _ -> + renderedTopLevelExposes + in + renderedWithSeparator + |> Pretty.softlines + |> Pretty.nest 4 prettyTopLevelExpose : TopLevelExpose -> Doc t