From f476ee837aaea76011f8e47e1181e4a09ec86555 Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Wed, 18 Feb 2009 19:30:20 +0100
Subject: [PATCH] Add a getSignalInfo accessor.

---
 FlattenTypes.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/FlattenTypes.hs b/FlattenTypes.hs
index bcb8be7..c7db378 100644
--- a/FlattenTypes.hs
+++ b/FlattenTypes.hs
@@ -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
-- 
2.30.2