null is now a valid declaration value for a object

src/Example.hs

@@ -107,6 +107,9 @@ exampleNullDeclaration = LocalVariableDeclaration (VariableDeclaration "Person"
 exampleNullDeclarationFail :: Statement
 exampleNullDeclarationFail = LocalVariableDeclaration (VariableDeclaration "int" "a" (Just NullLiteral))
 
+exampleNullAssignment :: Statement
+exampleNullAssignment = StatementExpressionStatement (Assignment (Reference "a") NullLiteral)
+
 testClasses :: [Class]
 testClasses = [
     Class "Person" [
@@ -246,3 +249,9 @@ runTypeCheck = do
         printResult "Result Null Declaration:" evaluatedNullDeclarationFail
         ) handleError
 
+    catch (do
+        print "====================================================================================="
+        evaluatedNullAssignment <- evaluate (typeCheckStatement exampleNullAssignment [("a", "Person")] sampleClasses)
+        printSuccess "Type checking of null assignment completed successfully"
+        printResult "Result Null Assignment:" evaluatedNullAssignment
+        ) handleError

src/Typecheck.hs

@@ -147,8 +147,8 @@ typeCheckStatementExpression (Assignment ref expr) symtab classes =
       type' = getTypeFromExpr expr'
       type'' = getTypeFromExpr ref'
   in
-      if type'' == type' then
+    if type'' == type' || (type' == "null" && isObjectType type'') then
-        TypedStatementExpression type' (Assignment ref' expr')
+      TypedStatementExpression type'' (Assignment ref' expr')
     else
       error $ "Type mismatch in assignment to variable: expected " ++ type'' ++ ", found " ++ type'