mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-15 22:48:33 +03:00
Whitespace and comments.
This commit is contained in:
parent
2ec9b947fc
commit
efeb518dd7
@ -246,6 +246,7 @@ memberDeletion env typeEnv (memberName, memberType)
|
||||
_ -> " /* Can't find a single delete-function for member '" ++ memberName ++ "' */"
|
||||
| otherwise = " /* Ignore non-managed member '" ++ memberName ++ "' */"
|
||||
|
||||
-- | The template for the 'copy' function of a deftype.
|
||||
templateCopy :: Env -> Env -> [(String, Ty)] -> Template
|
||||
templateCopy typeEnv env members =
|
||||
Template
|
||||
@ -264,6 +265,7 @@ memberTypeToCopyFunctionType :: Ty -> Ty
|
||||
memberTypeToCopyFunctionType memberType =
|
||||
(FuncTy [(RefTy memberType)] memberType)
|
||||
|
||||
-- | TODO: Should return an Either since this can fail! Also, share code with memberDeletion
|
||||
memberCopy :: Env -> Env -> (String, Ty) -> String
|
||||
memberCopy env typeEnv (memberName, memberType)
|
||||
| isManaged typeEnv memberType =
|
||||
|
Loading…
Reference in New Issue
Block a user