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
@ -244,8 +244,9 @@ memberDeletion env typeEnv (memberName, memberType)
|
|||||||
concretizedPath = SymPath pathStrings (name ++ suffix)
|
concretizedPath = SymPath pathStrings (name ++ suffix)
|
||||||
in " " ++ pathToC concretizedPath ++ "(p." ++ memberName ++ ");"
|
in " " ++ pathToC concretizedPath ++ "(p." ++ memberName ++ ");"
|
||||||
_ -> " /* Can't find a single delete-function for member '" ++ memberName ++ "' */"
|
_ -> " /* Can't find a single delete-function for member '" ++ memberName ++ "' */"
|
||||||
| otherwise = " /* Ignore non-managed member '" ++ memberName ++ "' */"
|
| otherwise = " /* Ignore non-managed member '" ++ memberName ++ "' */"
|
||||||
|
|
||||||
|
-- | The template for the 'copy' function of a deftype.
|
||||||
templateCopy :: Env -> Env -> [(String, Ty)] -> Template
|
templateCopy :: Env -> Env -> [(String, Ty)] -> Template
|
||||||
templateCopy typeEnv env members =
|
templateCopy typeEnv env members =
|
||||||
Template
|
Template
|
||||||
@ -264,6 +265,7 @@ memberTypeToCopyFunctionType :: Ty -> Ty
|
|||||||
memberTypeToCopyFunctionType memberType =
|
memberTypeToCopyFunctionType memberType =
|
||||||
(FuncTy [(RefTy memberType)] 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 -> Env -> (String, Ty) -> String
|
||||||
memberCopy env typeEnv (memberName, memberType)
|
memberCopy env typeEnv (memberName, memberType)
|
||||||
| isManaged typeEnv memberType =
|
| isManaged typeEnv memberType =
|
||||||
|
Loading…
Reference in New Issue
Block a user