From 85ee6f8e10f7dcc73db62a55a07d924bc002f216 Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Fri, 13 Feb 2009 13:38:08 +0100
Subject: [PATCH] Rename fields of SignalInfo.

---
 FlattenTypes.hs | 4 ++--
 VHDL.hs         | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/FlattenTypes.hs b/FlattenTypes.hs
index c8cd306..4e2640a 100644
--- a/FlattenTypes.hs
+++ b/FlattenTypes.hs
@@ -77,8 +77,8 @@ data CondDef sigid = CondDef {
 
 -- | Information on a signal definition
 data SignalInfo = SignalInfo {
-  name :: Maybe String,
-  ty   :: Type.Type
+  sigName :: Maybe String,
+  sigTy   :: Type.Type
 }
 
 -- | A flattened function
diff --git a/VHDL.hs b/VHDL.hs
index efa1409..1927147 100644
--- a/VHDL.hs
+++ b/VHDL.hs
@@ -51,7 +51,7 @@ createEntity hsfunc fdata =
           (lookup id sigmap)
         nm = Maybe.fromMaybe
           (error $ "Signal not named? This should not happen!")
-          (name info)
+          (sigName info)
 
 -- | Create the VHDL AST for an entity
 createEntityAST ::
-- 
2.30.2