X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=FlattenTypes.hs;h=8dbdc3b6ab2b9b1a676cd554ba72a78d96e52b38;hb=2ab93a2a97e22ca0bd57a2738fd0a48104fffbe5;hp=af6289e6588371855c1dc0ef6ef8be838c73fc5a;hpb=d23c70f3fee490d865aae9c5bfcad1bf1e1f565f;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/FlattenTypes.hs b/FlattenTypes.hs
index af6289e..8dbdc3b 100644
--- a/FlattenTypes.hs
+++ b/FlattenTypes.hs
@@ -20,7 +20,7 @@ type SignalMap = HsValueMap SignalId
 type StateId = Int
 
 -- | How is a given (single) value in a function's type (ie, argument or
--- return value) used?
+--   return value) used?
 data HsValueUse = 
   Port           -- ^ Use it as a port (input or output)
   | State StateId -- ^ Use it as state (input or output). The int is used to
@@ -176,3 +176,16 @@ genSignalId use ty = do
   let s = (n, SignalInfo Nothing use ty)
   State.put (defs, s:sigs, n+1)
   return n
+
+-- | Returns the SignalInfo for the given signal. Errors if the signal is not
+--   known in the session.
+getSignalInfo :: SignalId -> FlattenState SignalInfo
+getSignalInfo id = do
+  (defs, sigs, n) <- State.get
+  return $ signalInfo sigs id
+
+setSignalInfo :: SignalId -> SignalInfo -> FlattenState ()
+setSignalInfo id' info' = do
+  (defs, sigs, n) <- State.get
+  let sigs' = map (\(id, info) -> (id, if id == id' then info' else info)) sigs
+  State.put (defs, sigs', n)