Add a getFuncMap accessor for VHDLState.

diff --git a/TranslatorTypes.hs b/TranslatorTypes.hs
index d50881600a11b9ec83d8a6ec7b83baa609bc0139..40529ea078d5e46805af27517a070450924c3638 100644 (file)
--- a/TranslatorTypes.hs
+++ b/TranslatorTypes.hs
@@ -76,6 +76,10 @@ modFunc :: (FuncData -> FuncData) -> HsFunction -> VHDLState ()
 modFunc f hsfunc =
   modFuncMap (Map.adjust f hsfunc)
 
+-- | Get the map of functions in the session
+getFuncMap :: VHDLState FuncMap
+getFuncMap = State.gets funcs
+
 -- | Modify the function map in the session using the given function
 modFuncMap :: (FuncMap -> FuncMap) -> VHDLState ()
 modFuncMap f = do