From 8f9652e28e04aa9fcafebac1b1bff2a1b569c830 Mon Sep 17 00:00:00 2001
From: Francesco Gazzetta <fgaz@fgaz.me>
Date: Sat, 2 Jul 2022 11:51:07 +0200
Subject: [PATCH] Remove redundant Ident

---
 test/Main.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/test/Main.hs b/test/Main.hs
index 1f03c94..5b6101e 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -34,18 +34,18 @@ goldenTests = testGroup "golden tests"
       , CInt False 2
       , CSingle 0.1
       , CDouble (-0.2)
-      , CGlobal $ Ident "global"
+      , CGlobal "global"
       ]
   , t "linkage" (Export, Section "secName" Nothing, Section "secName" $ Just "flag1 flag2")
-  , t "typedef" $ Typedef (Ident "t") (Just 8)
+  , t "typedef" $ Typedef "t" (Just 8)
       [ (SubExtTy HalfWord, Just 16)
-      , (SubAggregateTy (Ident "t1"), Nothing)
+      , (SubAggregateTy "t1", Nothing)
       ]
-  , t "opaque" $ Opaque (Ident "t") 8 16
-  , t "val" [ValConst (CInt False 0), ValTemporary $ Ident "temporary", ValGlobal $ Ident "global"]
-  , t "jmp" $ Jmp $ Ident "target"
-  , t "jnz" $ Jnz (ValConst $ CInt False 0) (Ident "target1") (Ident "target2")
-  , t "ret" $ Ret $ Just $ ValTemporary $ Ident "x"
+  , t "opaque" $ Opaque "t" 8 16
+  , t "val" [ValConst (CInt False 0), ValTemporary "temporary", ValGlobal "global"]
+  , t "jmp" $ Jmp "target"
+  , t "jnz" $ Jnz (ValConst $ CInt False 0) "target1" "target2"
+  , t "ret" $ Ret $ Just $ ValTemporary "x"
   ]
   where
     t name value = goldenVsAction