From: Matthijs Kooijman Date: Fri, 13 Feb 2009 12:38:08 +0000 (+0100) Subject: Rename fields of SignalInfo. X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=85ee6f8e10f7dcc73db62a55a07d924bc002f216;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git Rename fields of SignalInfo. --- 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 ::