From a88e94504679a5aeaf102c975d873cbc14620f61 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sat, 10 Sep 2022 15:14:12 +0100
Subject: Not needed

---
 src/Micro/Env.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'src/Micro/Env.hs')

diff --git a/src/Micro/Env.hs b/src/Micro/Env.hs
index 9de7248..731f19a 100644
--- a/src/Micro/Env.hs
+++ b/src/Micro/Env.hs
@@ -15,12 +15,9 @@ data Sym = Sym
   }
   deriving (Show)
 
-newSym :: A.Ident -> A.Type -> Bool -> Bool -> SourcePos -> Sym
-newSym a b c d e = Sym {symId = a, symType = b, symPriv = c, symRef = d, symPos = e}
-
 -- XXX: this name is not good
 toSym :: Bool -> A.FuncParam -> Sym
-toSym ref (a, b, c, d) = newSym a b c ref d
+toSym ref (a, b, c, d) = Sym a b c ref d
 
 type SymMap = Map.Map A.Ident Sym
 
-- 
cgit v1.2.3