Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Generate case objects instead of case classes for no-arg constructors #139

Merged
merged 6 commits into from
Sep 1, 2020
Merged

Generate case objects instead of case classes for no-arg constructors #139

Changes from all commits
Commits
Show all changes
6 commits
Select commit Hold shift + click to select a range
965db72
Fix elm-syntax version in CLI.
AttilaMihaly Aug 25, 2020
b916218
Fix elm-syntax operator precedence.
AttilaMihaly Aug 25, 2020
16e46bd
Use better literal wrappers in generated Scala.
AttilaMihaly Aug 25, 2020
6135d78
Generate case objects for no-argument type constructors. #105
AttilaMihaly Aug 28, 2020
a4808c7
Merge branch 'master' into scala-gen
AttilaMihaly Aug 28, 2020
496d51c
Merge branch 'master' into scala-gen
AttilaMihaly Sep 1, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
43 changes: 26 additions & 17 deletions src/Morphir/Scala/Backend.elm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -233,23 +233,32 @@ mapCustomTypeDefinition : Package.PackagePath -> Path -> Name -> List Name -> Ac
mapCustomTypeDefinition currentPackagePath currentModulePath typeName typeParams accessControlledCtors =
let
caseClass name args extends =
Scala.Class
{ modifiers = [ Scala.Case ]
, name = name |> Name.toTitleCase
, typeArgs = typeParams |> List.map (Name.toTitleCase >> Scala.TypeVar)
, ctorArgs =
args
|> List.map
(\( argName, argType ) ->
{ modifiers = []
, tpe = mapType argType
, name = argName |> Name.toCamelCase
, defaultValue = Nothing
}
)
|> List.singleton
, extends = extends
}
if List.isEmpty args then
Scala.Object
{ modifiers = [ Scala.Case ]
, name = name |> Name.toTitleCase
, extends = extends
, members = []
}

else
Scala.Class
{ modifiers = [ Scala.Case ]
, name = name |> Name.toTitleCase
, typeArgs = typeParams |> List.map (Name.toTitleCase >> Scala.TypeVar)
, ctorArgs =
args
|> List.map
(\( argName, argType ) ->
{ modifiers = []
, tpe = mapType argType
, name = argName |> Name.toCamelCase
, defaultValue = Nothing
}
)
|> List.singleton
, extends = extends
}

parentTraitRef =
mapFQNameToTypeRef (FQName currentPackagePath currentModulePath typeName)
Expand Down