+getLibraryUnits ::
+ (HsFunction, FuncData) -- | A function from the session
+ -> [AST.LibraryUnit] -- | The library units it generates
+
+getLibraryUnits (hsfunc, fdata) =
+ case entity fdata of
+ Nothing -> []
+ Just ent -> case ent_decl ent of
+ Nothing -> []
+ Just decl -> [AST.LUEntity decl]