- flatFunc :: Maybe FlatFunction,
- funcEntity :: Maybe Entity,
- funcArch :: Maybe AST.ArchBody
-}
+ fdFlatFunc_ :: Maybe FlatFunction,
+ fdEntity_ :: Maybe Entity,
+ fdArch_ :: Maybe AST.ArchBody
+} deriving (Show)
+
+-- Derive accessors
+$( Data.Accessor.Template.deriveAccessors ''FuncData )