From 1eef63739d9da401bdd4c89da2cfd8d3d9b7acb6 Mon Sep 17 00:00:00 2001
From: Einhard Leichtfuß <alguien@respiranto.de>
Date: Mon, 19 May 2025 14:05:36 +0200
Subject: Add Function AST

---
 src/Language/SimpleShell/AST/Expr.hs | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

(limited to 'src/Language/SimpleShell/AST/Expr.hs')

diff --git a/src/Language/SimpleShell/AST/Expr.hs b/src/Language/SimpleShell/AST/Expr.hs
index 0aaf16d..53b33f4 100644
--- a/src/Language/SimpleShell/AST/Expr.hs
+++ b/src/Language/SimpleShell/AST/Expr.hs
@@ -1,19 +1,12 @@
 module Language.SimpleShell.AST.Expr
   ( Expr(..)
   , TypedExpr
-  , VarName
-  , FunName
   )
 where
 
 
-import Language.SimpleShell.AST.SimpleType (SimpleType)
-
-import Data.Text (Text)
-
-
-type VarName = Text
-type FunName = Text
+import Language.SimpleShell.AST.Name (FunName, VarName)
+import Language.SimpleShell.AST.SimpleType (Typed)
 
 
 -- | Pure expression (no side effects).
@@ -44,4 +37,4 @@ data Expr
   | StrCast Expr
  deriving (Show)
 
-type TypedExpr = (SimpleType, Expr)
+type TypedExpr = Typed Expr
-- 
cgit v1.2.3