Make createEntity preserve the Entity on builtin functions.

diff --git a/VHDL.hs b/VHDL.hs
index 6f3705e421d6f0d55b16faef97054ac3f3462367..cdff47a0c1db9a257f9957f8299cdc8ace713343 100644 (file)
--- a/VHDL.hs
+++ b/VHDL.hs
@@ -38,12 +38,13 @@ getDesignFiles funcs =
 createEntity ::
   HsFunction        -- | The function signature
   -> FuncData       -- | The function data collected so far
-  -> Maybe Entity   -- | The resulting entity
+  -> Maybe Entity   -- | The resulting entity. Should return the existing
+                    ---  Entity for builtin functions.
 
 createEntity hsfunc fdata = 
   case flatFunc fdata of
     -- Skip (builtin) functions without a FlatFunction
-    Nothing -> Nothing
+    Nothing -> funcEntity fdata
     -- Create an entity for all other functions
     Just flatfunc ->
       let