From 1670b628cc7accea1c7ecd9359a7dccb6bd50a45 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Fri, 29 Nov 2024 21:40:16 +0100
Subject: Represent root network as an internal variable

---
 src/Parser.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Parser.hs')

diff --git a/src/Parser.hs b/src/Parser.hs
index 4b1e69a..ab44833 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -22,6 +22,7 @@ import System.Directory
 import System.Exit
 import System.FilePath
 
+import Network
 import Parser.Core
 import Parser.Expr
 import Parser.Statement
@@ -83,7 +84,7 @@ parseTestFile path = do
             { testVars = concat
                 [ map (fmap someVarValueType) builtins
                 ]
-            , testContext = SomeExpr RootNetwork
+            , testContext = SomeExpr $ varExpr SourceLineBuiltin rootNetworkVar
             , testNextTypeVar = 0
             , testTypeUnif = M.empty
             }
-- 
cgit v1.2.3