From 1cbbef19afcf997315431e3aa45f824fe8a8a0e7 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sun, 8 Sep 2024 02:08:13 +0200
Subject: Stub the implementation for all phases

---
 lib/Language/Elna/AST.hs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'lib/Language/Elna/AST.hs')

diff --git a/lib/Language/Elna/AST.hs b/lib/Language/Elna/AST.hs
index ac86e63..a13798c 100644
--- a/lib/Language/Elna/AST.hs
+++ b/lib/Language/Elna/AST.hs
@@ -1,17 +1,19 @@
 module Language.Elna.AST
-    ( VariableAccess(..)
+    ( Program(..)
+    {-, VariableAccess(..)
     , Condition(..)
     , Declaration(..)
     , Expression(..)
     , Identifier(..)
     , Literal(..)
     , Parameter(..)
-    , Program(..)
     , Statement(..)
     , VariableDeclaration(..)
-    , TypeExpression(..)
+    , TypeExpression(..)-}
     ) where
 
+data Program = Program
+{-
 import Data.Int (Int32)
 import Data.List (intercalate)
 import Data.Word (Word16, Word32)
@@ -165,3 +167,4 @@ instance Show Program
 showParameters :: [Parameter] -> String
 showParameters parameters =
     "(" <> intercalate ", " (show <$> parameters) <> ")"
+-}
-- 
cgit v1.2.3