carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-10-12 04:58:18 +03:00
Code Issues Projects Releases Wiki Activity

Whitespace and comments.

Browse Source
This commit is contained in:
Erik Svedäng 2017-09-05 13:55:43 +02:00
parent 2ec9b947fc
commit efeb518dd7
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Deftype.hs
View File

@ -244,8 +244,9 @@ memberDeletion env typeEnv (memberName, memberType)
concretizedPath = SymPath pathStrings (name ++ suffix)
in " " ++ pathToC concretizedPath ++ "(p." ++ 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 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 =