Add a getSignalInfo accessor.
authorMatthijs Kooijman <m.kooijman@student.utwente.nl>
Wed, 18 Feb 2009 18:30:20 +0000 (19:30 +0100)
committerMatthijs Kooijman <m.kooijman@student.utwente.nl>
Wed, 18 Feb 2009 18:30:20 +0000 (19:30 +0100)
FlattenTypes.hs

index bcb8be7d55d8e17a762b13e50d4314ab8a512b9b..c7db378ef27279f1ef7519f458df5de78426f0e8 100644 (file)
@@ -176,3 +176,10 @@ 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