-- function along the way.
type FuncMap = Map.Map HsFunction FuncData
--- | A signal that has been assigned a (unique) name
-data NamedSignal = NamedSignal String
-
--- | A function in which all signals have been assigned unique names
-type NamedFlatFunction = FlatFunction' NamedSignal
-
-- | Some stuff we collect about a function along the way.
data FuncData = FuncData {
- flatFunc :: Maybe (Either FlatFunction NamedFlatFunction)
+ flatFunc :: Maybe FlatFunction
}
data VHDLSession = VHDLSession {
return $ Map.lookup hsfunc fs
-- | Sets the FlatFunction for the given HsFunction in the given setting.
-setFlatFunc :: HsFunction -> (Either FlatFunction NamedFlatFunction) -> VHDLState ()
+setFlatFunc :: HsFunction -> FlatFunction -> VHDLState ()
setFlatFunc hsfunc flatfunc = do
fs <- State.gets funcs -- Get the funcs element from the session
let fs'= Map.adjust (\d -> d { flatFunc = Just flatfunc }) hsfunc fs
State.modify (\x -> x {funcs = fs' })
+-- | Modify all functions in the map using the given function
+modFuncs :: (HsFunction -> FuncData -> FuncData) -> VHDLState ()
+modFuncs f = do
+ fs <- State.gets funcs -- Get the funcs element from the session
+ let fs' = Map.mapWithKey f fs
+ State.modify (\x -> x {funcs = fs' })
+
getModule :: VHDLState HscTypes.CoreModule
getModule = State.gets coreMod -- Get the coreMod element from the session